问答题
在考生文件夹中有一个工程文件sjt3.vbp。程序的功能是输入用户名和密码。程序运行时,当向文本框Text2中输入密码时,若“显示密码”复选框没有被选中,则文本框Text3中同时显示“#”(如图3所示);若“显示密码”复选框被选中,再重新输入密码时,则在Text3中同时显示的是密码字符本身。 [*] 在给出的窗体文件中已经添加了全部控件,但程序不完整。 要求:去掉程序中的注释符,在程序中的横线处填写正确的内容,使其能正确运行,但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 [题目提供的源程序] Private Sub Text2_Change() If (1) =1 Then Text3.PasswordChar= (2) Else Text3.PasswordChar= (3) End If Text3.Text= (4) End Sub
问答题
考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是:程序运行时,向文本框控件数组Text1(有5个文本框)中任意输入5个数,单击名称为Command1的命令按钮,则找出其中最小数并显示在标签lblResult中。 窗体文件中已经给出了全部控件,但程序不完整,其中函数FindMin返回两个数中的较小数。 要求:在程序中的横线处填写正确的内容,使其能正确运行,但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 [题目提供的源程序] Private Sub Command1_Click() Dim x As Integer, k As Integer x=Val(Text1(1).Text) For k=2 To (1) x=FindMin(Val(Text1(k).Text), (2) ) Next lblResult Caption= (3) End Sub Public Function FindMin(x As Integer, y As Integer) If x (4) y Then FindMin=y Else FindMin=x End If End Function