【单选题】有如下程序 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 键的同时 , 用鼠标右键单击文本框
【单选题】在窗体中添加一个命令按钮,名称为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的值为( )