标签：二级VB程序设计

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click() d＝0 c＝10 x＝Array(10， 12， 21， 32， 24) For i＝1 To 5 If x(i)>c Then d＝d＋x(i) c＝x(i) Else d＝d－c End If Next i Print dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为( )。 🔥 899
设有以下程序：Private Sub Form_Click() x＝50 For i＝1 To 4 y＝InputBox("请输入一个整数") y＝Val(y) If y Mod 5＝0 Then a＝a＋y x＝y Else a＝a＋x End If Next i Print aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。 🔥 870
为了声明一个长度为128个字符的定长字符串变量StrD，以下语句中正确的是( )。 🔥 859
某人编写了下面的程序：Private Sub Command1_Click() Dim a As Integer， b As Integer a＝InputBox("请输入整数") b＝InputBox("请输入整数") pro a pro b Call pro(a＋b) End Sub Private Sub pro(n As Integer) While(n>0) Print n Mod 10； n＝n\10 Wend Print End Sub 此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123 和234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是( )。 🔥 858
用来设置文字字体是否斜体的属性是( )。 🔥 811
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是：Public x As IntegerPrivate y As Integer窗体文件的程序代码是：Dim a As IntegerPrivate Sub Form_Load() Dim b As Integer a＝2：b＝3：x＝10：y＝20End SubPrivate Sub Command1_Click() a＝a＋5：b＝b＋5：x＝x＋5：y＝y＋5 Print a； b； x； y End Sub运行程序，单击窗体上的命令按钮，则在窗体上显示的是( )。 🔥 807
以下关于通用对话框的叙述中，错误的是( )。 🔥 775
若窗体上有一个名为Command1的命令按钮，并有下面的程序：Private Sub Command1_Click() Dim arr(5)As Integer For k＝1 To 5 arr(k)＝k Next k prog arr() For k＝1 To 5 Print arr(k)； Next kEnd SubSub prog(a()As Integer) n＝UBound(a) For i＝n To 2 step－1 For j＝1 To n－1 if a(j)<a(j＋1)Then t＝a(j)：a(j)＝a(j＋1)：a(j＋1)＝t End If Next j Next iEnd Sub程序运行时，单击命令按钮后显示的是( )。 🔥 760
在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为( )。 🔥 748
有如下程序：Private Sub Command1_Click() Dim i As Integer， j As Integer Dim sum As Integer n＝1 Do j＝1 Do sum＝sum＋j j＝j＋1 Print j； Loop Until j>3 n＝n＋2 Loop Until n>10 Print sumEnd Sub运行上述程序，外层Do循环执行的次数为( )。 🔥 736
下面控件中，没有Caption属性的是( )。 🔥 728
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer， n As Integer For i＝0 To 50 i＝i＋3 n＝n＋1 If i>10 Then Exit For Next Text1.Text＝Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。 🔥 726
在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程：Private Sub Form_Load() Combo1.AddItem "AAAAA" Combo1.AddItem "BBBBB" Combo1.AddItem "CCCCC" Combo1.AddItem "DDDDD" Combo1.AddItem "EEEEE"End Sub程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为( )。 🔥 722
在窗体上画一个名为Command1的命令按钮，然后编写如下代码：Option Base 1 Private 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 s End Sub 运行上面的程序，其输出结果是( )。 🔥 717
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：Private Sub Command1_Click() s＝0 For i＝1 To 15 x＝2 * i－1 If x Mod 3＝0 Then s＝s＋1 Next i Label1.Caption＝sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是( )。 🔥 714
相关标签
指向 存单 mms2 伪造、变造的驾驶证 加快 清零 英国 领域 实施 k&lt backstyle 高级 抢占 cpsr 等级 调用