问答题

完成下列问题：
在考生文件夹中有一个工程文件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

【参考答案】

[操作步骤]
第1步：打开工程sjt3.vbp。
第2步：修改源程序。
第3步：调试、运行......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)

<上一题目录下一题>

热门试题

问答题

在名称为Form1的窗体上画一个名称为Label1、标题为“滚动条控件”的标签，一个名称为Hscroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最小值为1，最大值为100，滚动条的宽度为3000、高度为300，滚动块的初始位置为20。程序运行后的窗体如图1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.1frm。

问答题

在考生文件夹下有一个工程文件sjt5.vbp。该程序的功能是：分别统计7×7数组元素之和及元素中能够被7整除的元素的个数，并将统计结果显示在相应的标签中。请仔细阅读已有程序，然后在标出的位置编写适当的程序实现上述功能。要求：不得修改原有程序和控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 [题目提供的源程序] Dim a(7,7) As Integer Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & Data5.txt For Input As #1 Do While Not EOF(1) For i=1 To 7 For j=1 To 7 Input #1, a(i,j) Next j Next i Loop Close #1 End Sub Private Sub Command1_Click() Dim Sum As Long ’考生应编写的程序 Save End Sub Public Sub Save() Open App.Path & out5.txt For Output As #1 Print #1. lblFirst.Caption, lblSecond.Caption Close #1 End Sub

相关试题