【单选题】窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m=InputBox("请输入一个正整数") ReDim a(m) End Sub Private Sub Command2_Click() m=InputBox("请输入一个正...
【单选题】程序运行时单击 Command1 后,输入860788,窗体上的输出结果是______。 Private Sub Command1_Click() Dimx As Long, Count As Integer x = Val(InputBox(" 请输入数据:")) Count = 0 While x 0 d = x Mod 10 If d = 8 Then Count = Count + 1 ...
【单选题】窗体上有 Command1 、 Command2 两个命令按钮。现编写以下程序: OptionBase 0 Dim a()As Integer, m As Integer PrivateSub Command1_Click() m = InputBox(" 请输入一个整数 ") ReDim a(m) End Sub PrivateSub Command2_Click() m = InputBox(...