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

admin2017-09-22  16

问题 (1)在名称为Form1的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObi,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdHide、cmdCooy,标题分别为“显示”、“隐藏”、“复制”,在开始运行时,向txtPwd中输入的所有字符都显示“*”,单击“显示”按钮后,在txtPwd中显示所有字符,再单击“隐藏”后,txtPwd中的字符不变,但显示的都是“?”,单击“复制”后,把txtPwd中的实际内容复制到txtObj中,如图3.59所示。
    要求:①在属性窗口中,把窗体的标题改为“密令窗口”。②建立适当的事件过程,完成上述功能。每个过程中只允许写一条语句,且不能使用变量。存盘时,工程文件名为vbsj3.vbp,窗体文件名为vbsi3.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=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 &  "\out4.dat"  For
_Outpult 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:打开考生文件夹中的本题工程文件vbsi4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: tmp=tmp*a xn=tmp z=z+xn(t,i) lblResult.Caption=z 步骤2:按运行程序,在第1个文本框中输入5,第2个文本框中输入10,再单击“计算”按钮。 步骤3:按要求将文件保存至考生文件夹中。

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

最新回复(0)