basic

rivate Sub Command1_Click() End Sub （ 2） 、 “删除”按钮代码 Private Sub Command2_Click() End Sub （ 3） 、 “修改”按钮代码 Private Sub Command3_Click() End Sub 24 （ 4） 、 “确定”按钮代码 Private Sub Command4_Click() End Sub （

窗体后， 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

明。 三、阅读程序题 阅读下列程序并写出程序运行结果 1． Private Sub Form_Click() Static a As Integer Dim b As Integer a = a+2 b = b+2 Text1=a Text2=b End Sub 写出程序运行时连续单击 三 次窗体后，文本框 Text1和 Text2显示结果。 2． Private Sub

该程序（注：下三角的元素全为 1）。 Option base 1 Private Sub Command 3_Click() Dim a(10,10)As Integer For i=1 To 10 For__ __ a(i,j)=1 Next j Next i For i=1 To 10 For j=1 To 10 7 Print a(i,j)。 Next j Print Next i End

0: Sum2 = 1 For i = 1 To 3 For j = 1 To i Sum2 = Sum2 * j Next j Sum1 = Sum1 + Sum2 Next i Print Sum1 End Sub 写出程序运行时单击 Command1 按纽 后， Form1 上的输出结果。 2． Private Sub Command1_Click() x = 1 Do While x

（ 7） 、 “学生信息”代码 Private Sub mnuxueshengxinxi_Click() End Sub （ 8） 、 “返回”代码 Private Sub mnufanhui_Click() End Sub （ 9） 、 “退出”代码 Private Sub mnutuichu_Click() End End Sub 以上代码均是根据不同的菜单进入不同的界面，进入界面后再根据