【单选题】有如下程序 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 ...
【单选题】编写如下事件过程 Private Sub Text 1- Mouse Down( Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift= 1 And Button=2 Then Text 1. Text="ABCD” End If End Sub 程序运行后 , 为了在文本框内输出“ ABC ” , 应执行的...
A.
按住 Shift 键的同时 , 用鼠标左键单击文本框
B.
按住 Shift 键的同时 , 用鼠标右键单击文本框
C.
按住 Ctrl 及 Alt 键的同时 , 用鼠标左键单击文本框
D.
按住 Ctrl 及 AIt 键的同时 , 用鼠标右键单击文本框
【单选题】在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序: Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox "帐号有非数字字符错误" Text1.Text = "" Text1.SetFocus else MsgBox "帐号正确" End If End Sub 当在text1文本框中输入字符...
B.
显示对话框,提示信息为"帐号有非数字字符错误"
【单选题】在窗体中添加一个命令按钮,名称为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...
【单选题】有如下VB程序段 Dim s As String s = "桐乡abc" If Len(s) >= 5 Then s = Mid(s, 3, 2) Else s = Mid(s, 1, 2) 该程序段运行后s的值为( )