1．能够改变标签(Label)控件显示标题的属性是（ B ）。 A．Name B．Caption C．Text D．Border 2．当一个工程中含有多个窗体时，其中的启动窗体是（ ）。 A．启动VB时创建的第一个窗体 B．第一个添加的窗体 C．在“工程属性”对话框中指定的窗体 D．最后一个添加的窗体 3.当运行程序时，系统自动执行启动窗体的（ ）事件。 A．Load B．Unload C．Click D．LostFocus 4．下列4项中合法的变量名是（ B ）。 A．2xyz B．Integer C．x-yz D．x_yz 5．表达式24 / 2 - 2 ^ 3 *4 / 4 Mod 5 \ 3（　　） A．12 B．16 C．20 D．32 6．要清除List列表框控件中的所有项目，可采用的方法是（ ） A．Erase B．Clear C．Click D．Delete 7．下列
正确的
赋值语句是（ c ） A．x+y=z B．2=x+y C．z=x+y D．x=Integer+2 8．可通过下列何种属性来设置或返回List列表框控件中当前选定项目的索引（ ）。 A．ListIndex B．ListCount C．ListText D．LisItem 9.若窗体Form1左上角的坐标为(-250,300)，右下角的坐标为(350,-200)，那么X轴和Y轴的正方向是（ ） A．向左和向上 B．向左和向下 C．向右和向下 D．向右和向上 10．如果仅需要得到当前系统时间，则可以使用哪个函数（ ） A．Time B．Year C．Now D．Date 

貌似是电大的试卷么噶

阅读下列程序并写出程序运行结果1．Private Sub Form_Click() Static a As Integer Dim b As Integer a = a+2 b = b+2 Text1=a Text2=bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。2．Private Sub Form_Click() Static a As String Dim b As String a = a + "A" b = b + "B" Text1 = a Text2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。3．Private Sub Command1_Click() Dim n As Integer, y As Integer, x As Integer a = 1Do While a < 20 n = n + 1 b = a + b a = a * (a + 1) Loop Text1.Text = n Text2.Text = a Text3.Text = bEnd Sub写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。4．Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1 Do While x < 3 A(i) = A(i) * x x = x + 2 i = i + 1 Loop Text1.Text = A(1) Text2.Text = A(2)End Sub写出程序运行时单击Command1后，文本框Text1、Text2的输出结果。5．Private Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 To 4 If i > 2 Thenk = k + 5 Else k = k + 2 End If Next iPrint i, kEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。

..........

11.Private Sub Command1_Click() Dim X As Integer, Y As Integer X = 0: Y = 1 For i = 1 To 3 For j = 1 To i Y = Y * j Next j X = X + Y Next i Print XEnd Sub 写出程序运行时单击命令按钮后，窗体Form1上的输出结果。12.Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 6 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。13.Private Sub Form_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As Integer A(1) = "2" A(2) = "4" A(3) = "6" A(3) = "8" c = 1 For j = 1 To 4 c = c + Val(A(j)) Next j Print cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果：

我已经脑残了一个上午了明天就考救救我.....

偷梁换柱
啊这
那时水贴这是求助贴啊

求助也说不上...要是求助也发上那些VB论坛了哈哈昨天刚度过一个不愉快的晚上今天起来又度过了一个脑残的上午救命.