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

admin2019-06-11  21

问题 (1)在名称为Form1的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObi,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdHide、cmdCopy,标题分别为“显示”、“隐藏”、“复制”,在开始运行时,向txtPwd中输入的所有字符都显示“*”,单击“显示”按钮后,在txtPwd中显示所有字符,再单击“隐藏”后,txtPwd中的字符不变,但显示的都是“?”,单击“复制”后,把txtPwd中的实际内容复制到txtObi中,如图3—59所示。
要求:
①在属性窗口中,把窗体的标题改为“密令窗口”。
②建立适当的事件过程,完成上述功能。每个过程中只允许写一条语句,且不能使用变量。存盘时,工程文件名为vbsj3.vbp,窗体文件名为vbsj3.frm。
(2)在考生文件夹下有一个工程文件vbsj4.vbp,运行情况如图3—60所示。程序的功能是计算如下表达式的值: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的值,并将结果显示在标签lblResult中,否则没有成绩。最后,程序按原文件名存盘。

程序源码:
Private Function xn(a As Single,m As Integer)
Dim i As Integer:tmp=1
’For i=1Tom
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=2To n
t=x+i
’z=z+?
Next
’lblResult.Caption=?
Call SaveResult
End Sub
Private Sub SaveResult()
Open App.Path&&"\out4.dat"For_Output As#1
Print#1,lblResult.Caption
Close#1
End Sub

选项

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

解析 第1小题:PasswordChar属性用于设置屏蔽文本框中内容的字符,要去掉对文本框中输入内容的屏蔽,需将其PasswordChar属性值清空。
第2小题:本题源程序中,白定义函数xn的功能是进行a^m幂运算,它通过For循环连续m次将a乘以累积变量tmp(初值为1)来实现。故自定义函数xn中第一个?处应改为:tmp*a,作为函数返回值第二个?处应改为:map。
在“计算”按钮的单击事件过程中,根据程序所要计算表达式的特点,源程序利用一个For循环依次计算表达式中各项的值((x+i)^i),并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t,i)来实现的,其中t=x+j。故cmdCal_Click事件过程中第一个?处应改为:xn(t,i)。计算结果显示在标签中,故第二个?处应改为:z。
转载请注明原文地址:https://jikaoti.com/ti/cnN0FFFM
0

最新回复(0)