(1)在名称为Forml的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObi,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdide、cmdCopy,标题分别为“显示”、“隐藏”、“复

admin2016-03-22  34

问题 (1)在名称为Forml的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObi,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdide、cmdCopy,标题分别为“显示”、“隐藏”、“复制”,在开始运行时,向txtPwd中输入的所有字符都显示“*’,单击“显示”按钮后,在txtPwd中显示所有字符,再单击“隐藏”后,txtPwd中的字符不变,但显示的都是“?”,单击“复制”后,把txtPwd中的实际内容复制到txtObi中,如图340所示。
要求:①在属性窗口中,把窗体的标题改为“密令窗口”。
②建立适当的事件过程,完成上述功能。每个过程中只允许写一条语句,且不能使用变量。存盘时,工程文件名为vbsj3.vbp,窗体文件名为vbsi3.frm。

(2)在考生文件夹下有一个工程文件vbsj4.vbp,运行情况如图3-41所示。程序的功能是计算如下表达式的值:Z=(X+2)^2+(X+3)^3+(X+4)^4+…+(X+N)^N。其中,N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称为cmdCal、标题为“计算”的命令按钮,则计算表达式的值Z,并将计算结果显示在名称为lblResult的标签中。在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的“?”改为正确的内容。

注意:考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符,而应使用函数xn进行幂运算。程序至少运行一次,按照下图输入数据,使N=5,x=10,单击“计算”按钮,计算Z的值,并将结果显示在标签lblResuIt中,否则没有成绩。最后,程序按原文件名存盘。
程序源码:
PriVate  Function  xn(a  As  Single,  m Integer)
    Dim i As  Integer
    tmp=1
    For i=1 To m
tmp=?
    Next
xn=?
End Function
PriVate  Sub cmdCal  Click()
    Dim n As  Integer,  i As  Integer
    Dim t As  Single,s,  x As  Single
    n=Val(txtN.Text)
    x=Val(txtX.Text)
    z=0
    For i=2 To n
    t=x+i
z=z+?
    Next
’lblResult,Caption?
    call SaveResult
End Sub
PriVate  Sub  SaveResult()
    Open App.Path  &  “\0ut4.dat”  For
    Output As#1
    Print  #l,  lblResult.Caption
    Close  #1
End Sub

选项

答案第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按表4-25在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,分别编写3个按钮的单击事件过程。 参考代码: Private Sub cmdShow _C1ick() txtPwd.PaSSWOrdChar=“” End Sub Private Sub cmdHide C1iCk() txtPwd.PasswordChar=“?” End Sub Private Sub cmdCopy C1ick() txtobj.Text=txtPwd.Text End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: tmp=tmp*a xn=tmp Z=Z+xn(t,i) iblResult.Caption=z 步骤2:按键运行程序,在第1个文本框中输入5,第2个文本框中输入10,然后单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/B0Lp777K
0

最新回复(0)