单项选择题
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:
Private Sub Command1_Click()
Dim n
If Text1. Text < > "123456" Then
n=n+1
Print "口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是( )。
A) 在Dim n语句的下面添加一句:n=0
B) 把Print "口令输入错误" &n& "次" 改为Print "口令输入错误"+n+ "次"
C) 把Print "口令输入错误" &n& "次" 改为Print "口令输入错误"& Str(n)& "次"
D) 把Dim n改为Static n
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单都可见;否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序: 菜单结构 标题 名称 级别 成绩管理 mark 1 成绩查询 query 2 成绩录入 input 2 Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAseii = 13 Then If Text1. Text = Teacher Then Form2. input. Visible = True Else Form2. input. Visible = False End If End If Form1. Hide Form2. Show End Sub 程序运行时发现刚输入口令时就隐藏了Form1,显示了Form2,程序需要修改。下面修改方案中正确的是( )。
A) 把Form1中Text1文本框及相关程序放到Form2窗体中
B) 把Form1. Hide、Form2. Show两行移到2个End If之间
C) 把If KeyAscii=13 Then改为If KeyAscii="Teacher" Then
D) 把2个Form2. input. Visible中的“Form2. ”删去
点击查看答案&解析
单项选择题
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n%, k% n = Len(Text1. Text) For k = 0 To List1. ListCount - 1 If Left (List1. List (k), n) = Text1. Text Then List1. RemoveItem k End If Next k End Sub 在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To List1.Listcount-1改为( )。
A) For k = List1. ListCount - 1 To 0 Step - 1
B) For k = 0 To List1. ListCount
C) For k = 1 To List1. ListCount - 1
D) For k = 1 To List1. ListCount
点击查看答案&解析
相关试题
标准模块中有如下程序代码: Public x A...
窗体上有一个名称为Text1的文本框;一个名...
计算下面分段函数的正确语句是( )。
设工程中有Form1、Form2两个窗体,要求单...
为计算1+2+22+23+24+…+21...