题目内容
窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认，若密码正确，弹出信息框显示"密码正确"，若密码错误，弹出信息框显示"密码错误，请重新输入"，但最多允许输出3次，若还不正确，则弹出信息框显示"密码错误，不能再输入"，且命令按钮变为无效。某人编写了如下程序：Private Sub Command1_Click() Dim num As Integer num = num + 1 If Text1.Text = "123456" Then MsgBox "密码正确" ElseIf num = 3 Then Command1.Enabled = False MsgBox "密码错误，不能再输入" Else MsgBox "密码错误，请重新输入" End IfEnd Sub调试时发现有错误需要修改，下面正确的修改方案是
查看答案
搜索结果不匹配？点我反馈
更多问题
编写如下程序：Private Sub Command1_Click() Dim a(2, 3) For i = 0 To 2 For j = 0 To 3 a(i, j) = InputBox("请输入整数") Next j Next i For i = 0 To 2 a(i, 1) = a(i, 3) Next i For i = 0 To 2 For j = 0 To 3 Print a(i, j), Next j Print Next iEnd Sub程序运行后，单击命令按钮Command1，并输入了12个整数：1，2，3，4，5，6，7，8，9，10，11，12，则输出结果为
设有下面的类型和变量定义，Private Type Rec name As String score(5) As IntegerEnd TypeDim student As Rec则下面正确的语句是
编写如下程序：Function Fun1(ByVal a As Integer, b As Integer) As Integer a = b + a b = 2 * a Fun1 = bEnd FunctionPrivate Sub Command1_Click() Dim x As Integer x = 5 Print Fun1(Fun1(x, x - 1), x - 2)End Sub程序运行后，单击命令按钮Command1，输出结果为
下面是一个判断并输出获得奖学金信息的程序：Private Sub Command1_Click() a% = InputBox("请输入主课成绩1") b% = InputBox("请输入主课成绩2") c% = InputBox("请输入副课成绩") s = (a + b + c) / 3 If s >= 85 Then If a >= 90 And b >= 90 Then Print "获得一等奖学金" Else Print "获得二等奖学金" End If Else If a >= 95 Or b >= 95 Then Print "获得三等奖学金" Else Print "不获得奖学金" End If End IfEnd Sub程序运行时，如果输入的依次是90、91、72，则输出是
微信支付 
支付宝支付