vb大题.docVIP

Dim sum As Long Dim a(1 To 8) As double Dim i As Integer a(1) = 1: a(2) = 4: i = 3: s = 5 Do While i = 3 And i = 8 a(i) = a(i - 1) * a(i - 2) sum = sum + a(i) i = i + 1 Loop Print sum Dim i i = 0 Do Until i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 3 i = i + 1 Loop Sum=i Dim n As Integer, result As String Private Sub Form_click() n = InputBox(输入数字) If n 0 Then result = 1 If n = 0 Then result = 2 If n 0 Then result = 3 Select Case result Case 1 MsgBox (负数) Case 2 MsgBox (零) Case 3 MsgBox (正数) End Select End Sub For i = 100 To 1000 If i Mod 3 = 0 Then sum = sum + i If sum 3000 Then Exit For End If Next i Print sum Private Sub Command1_Click() Dim i As Integer, j As Integer, s As Long j = 1 For i = 1 To 6 j = j * i s = s + j Next i Text1.text= s End Sub Private Sub Command1_Click() Me.FontSize = 30 字体大小 30有点大，超出窗口范围了 Dim i As Integer Dim j As Integer Dim s As String For i = 1 To 9 For j = 1 To i s = CStr(i) * CStr(j) = CStr(i * j) s = s Space$(10 - Len(s)) Picture1.Print s; Next j Picture1.Print Next i End Sub Dim n As Single n = 13 Do i = i + 1 n = n * 1.01 Loop Until n = 20 Print i year = i End Sub 一、选择题1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() Command1.Caption = 计算机等级考试 End Sub B、Private Sub Command1_Click() Caption = 计算机等级考试 End Sub C、Private Sub Form_Click() Text1.Caption = 计算机等级考试 End Sub D、Private Sub Command1_Click() Text1.Text = 计算机等级考试 End Sub在一行内写多条语句时，每个语句之间用（????? ）符号分隔。A、 , ? B、： ? C、. ? D、； 3、下面（????? ）是合法的变量名。A、X_YZ ? B、123ABC ? C、INTEGER ? D、X-Y 4、下面（????? ）是合法的字符常量。A、 ABC$ ? B、 “ABC” ? C、 ‘ABC’ ? D、 ABC 5、表达式16/42^5*8 MOD 5\2的值为（????? ）。A、14 ? B、 4 ? C、20 ? D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10)B、b=Mid(a,10) C、b=Right(a,10)D、b=Mid(a,11,10)设a=a，b=b，c=c，d=d，执行语句x = IIf((a b) Or (c d), A, B)后，x的值为 A、a B、b