basic程序设计期末模拟试卷(编辑修改稿)

basic程序设计期末模拟试卷(编辑修改稿)内容摘要：

窗体后， Form1上的输出结果。 2． Private Sub Form_Click() Dim c As Integer, j As Integer, k As Integer k = 0 c = 1 For j = 1 To 6 If j 4 Then c = c + 5 Exit For Else k = k + 1 End If Next j Print c, k End Sub 写出程序运行时单击窗体后， c,k的值分别是： 3 . Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1 Do While i 9 i = i + 2 s = s + i Loop = s End Sub 文件框 Text1 的输出结果是： 4. 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 X End Sub 写出程序运行时单击命令按钮后，窗体 Form1上的输出结果。 5. Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 6 For i = 1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 6. 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 c End Sub 写出程序运行时单击窗体后，窗体 Form1上的结果： 四、 完善程序题 1．列表框应用程序。 要求从文本框中输入姓名，然后按“添加”按钮 ，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。 在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。 程序运行结果如图 1 所示。 图 1 程序如下，请补充完整。 List1 Command3 Command2 Command1 Text1 Private Sub Form_Load() 李敏 张华 吕晓烨 赵巍 袁莉 王津 何小渴 崔宁 何月 End Sub Private Sub Command1_Click() If Then [1] = Else MsgBox 请在文本框中输入信息。 End If End Sub Private Sub Command2_Click() [2] End Sub Private Sub Command3_Click() If = 修改 Then = [3] = False = False = [4] Else [5] = True = True = [6] = 修改。