【单选题】有如下程序 Option Explicit Private Sub command1_click() Dim a As Integer, b As Integer, c As Integer, abc As Integer a = InputBox("a=?") b = InputBox("b=?") c = InputBox("c=?") abc = a If b > abc Then abc ...
【单选题】在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序: Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox "帐号有非数字字符错误" Text1.Text = "" Text1.SetFocus else MsgBox "帐号正确" End If End Sub 当在text1文本框中输入字符...
【单选题】在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序: Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "ABC" End Sub Private Sub Command1_MouseDown(Button As Integer, Shi...