(vb程序选择.docVIP

CXXZ_Ti Ti_H Ti_Mu Re_ABCD Result 1 假定编写了如下事件过程:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single)If Button And 3=3 ThenPrint “Hello”End IfEnd Sub程序运行后，为了在窗体上输出“Hello”,应在窗体上执行以下哪个操作:A)只能按左按钮B)只能按右按钮C)必须同时按下左、右按钮D)按下左按钮或右按钮都可 D 2 有如下程序，该程序的执行结果为( )。Dim k As Integern = 5m = 1k = 1Do until k nm = m * 2k = k + 1LoopPrint mA) 26B) 28C) 30D) 32 D 3 编写了如下事件过程:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single)If Shift =6 And Button =2 ThenPrint “Hello”End IfEnd Sub程序运行后，为了在窗体上输出“Hello”,则应在窗体上执行以下哪个操作:A)同时按下Shift键和鼠标左按钮B)同时按下Shift键和鼠标右按钮C)同时按下Clrl、Alt键和鼠标左按钮D) 同时按下Clrl、Alt键和鼠标右按钮 D 4 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程:Private Sub Form_Load()Text1.Text=Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是。A) 在文本框Text1中输出55B) 在文本框Text1中输出0C) 出错D) 在文本框Text1中输出不定值 C 5 下列程序段的运行结果是 ( )。Sub sele()Dim n as Integeri=21:n=3Do While Ini=i-nLoopPrint IEnd SubA) 21B) 3C) 4D)24 B 6 在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程:Private Sub Form_Load()ShowText1.Text=”” :Text2.Text=””Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer ,Shift As Inetger)Text1.Text=Text1.Text+Chr(KeyCode-4)End Sub程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为( )。 A) efghiB) EDGHIC) ABCDED) 空 C 7 下列程序的执行结果是( )。M1 = 1 : m2 = 1Do While m2 6m1 = m1 * m2m2 = m2 + 1LoopPrint m1A) 1B) 2C) 110 D) 120 D 8 下列程序的执行结果是( )。Private Function P(N As Integer)For I = 1 To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End SubA) 9 B) 10C) 11 D) 12 B 9 下列程序段的执行时，输出结果是( )。For a = 0 To 1For b = 1 To 2For c = 1 To 3I = I + 1Next cNext bNext aPrint IA) 10 B) 11C) 12 D) 13 C 10 下列程序段的执行结果是( )。Dim A(5, 5)For I = 1 To 3For j = 1 To 4A(I, j) = I * jNext jNext IFor N = 1 To 2For m = 1 To 3Print A(m, N);Next mNext NA) 1 2 3 4 5 6B) 2 3 4 5 6