标签：二级VB程序设计

阅读程序：Private Sub Form_Click() a＝0 For j＝1 To 15 a＝a＋j Mod 3 Next j Print aEnd Sub程序运行后，单击窗体，输出结果是( )。 🔥 3159
下面程序计算并输出的是( )。Private Sub Command1_Click() a＝10 s＝0 Do s＝s＋a*a*a a＝a－1 Loop Until a<＝0 Print sEnd Sub 🔥 2298
编写如下程序：Option Base 1Private Sub Command1_Click() Dim a a＝Array(1， 2， 3， 4) s＝0： j＝1 For i＝4 To 1 Step－1 s＝s＋a(i)* j j＝j * 10 Next i Print sEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。 🔥 1537
设有如下程序：Option Base 1Dim a(3， 4)As Integer， b(4， 3)As IntegerPrivate Sub Command1_Click() '循环1 For i＝1 To 3 For j＝1 To 4 b(j， i)＝a(i， j) Next j Next i '循环2 x＝b(1， 1) For i＝1 To 4 For j＝1 To 3 Print b(i， j)； If x<b(i， j)Then x＝b(i， j) Next j Print Next iEnd Sub程序中的数组a已被赋值。以下关于上述程序的叙述中，正确的是( )。 🔥 1178
设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click() Dim s As String， ch As String s＝"" For k＝1 To Len(Text1) ch＝Mid(Text1， k， 1) s＝ch＋s Next k Text1.Text＝sEnd Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。 🔥 1149
窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click() Dim x%， y%， z% x＝InputBox("请输入第1个整数") y＝InputBox("请输入第2个整数") Do Until x＝y If x>y Then x＝x－y Else y＝y－x Loop Print xEnd Sub运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为( )。 🔥 1099
命令按钮Command1的单击事件过程如下：Private Sub Command1_Click() Dim a(10， 10)As Integer x＝0 For i＝1 To 3 For j＝1 To 3 a(i， j)＝i * 2 Mod j If x<a(i， j)Then x＝a(i， j) Next Next Print xEnd Sub执行上述事件过程后，窗体上显示的是( )。 🔥 1005
设窗体上有名称为Option1的单选按钮，且程序中有语句：If Option1.Value＝True Then下面语句中与该语句不等价的是( )。 🔥 965
现有如下一段程序：Private Sub Command1_Click() x＝UCase(InputBox("输入：")) Select Case x Case "A" To "C" Print "考核通过！" Case "D" Print "考核不通过 ！" Case Else Print "输入数据不合法！" End SelectEnd Sub执行程序，在输入框中输入字母“B”，则以下叙述中正确的是( )。 🔥 953
如果一个菜单项的Enabled属性被设置为False，则程序运行时，该菜单项( )。 🔥 944
设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序： Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii＝13 Then If Text1.Text＝"Teacher"Then Form2.input.Visible＝True Else Form2.input.Visible＝False End If End If Form1.Hide Form2.ShowEnd Sub程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是( )。 🔥 939
在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click() Dim a a＝Array(1， 2， 3， 4) j＝1 For i＝4 To 1 Step－1 s＝s＋a(i)* j j＝j * 10 Next i Print sEnd Sub程序运行后，单击命令按钮，其输出结果是( )。 🔥 918
窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程：Private Sub Command1_Click() For i＝0 To List1.ListCount－1 If List1.Selected(i)＝True Then List2.AddItem Text End If NextEnd Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。 🔥 911
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1_Click() Dim M(10)As Integer For k＝1 To 10 M(k)＝12－k Next k x＝8 Print M(2＋M(x)) End Sub 运行程序，单击命令按钮，在窗体上显示的是( )。 🔥 909
下面列表框属性中，是数组的是( )。 🔥 901
相关标签
test 不包括 记分周期 交通事故 web front datediff ssex 样式 135 入队 无损 两侧车门未关闭 gotfocus 轻微交通事故 减速让行