-
有如下VB程序段: Private Sub Command1_Click() Dim a As Long a=Val(Text1.Text) Print a End Sub 其中"Private Sub Command1_Click()"的作用是()。
A . 定义一个数据处理方法
B . 定义一个数据输入方法
C . 定义一个事件过程
D . 定义一个数据类型
-
下面程序: Private Sub Command1_Click() m$="ABC" n$="abc" k$=Lcase$(m$) j$=Ucase$(n$) Print Asc(k$) End Sub 运行后输出结果为()
A . 96
B . 97
C . 65
D . 64
-
有如下程序: Private Sub Command1_Click() Fo rj=1 To 10 a=a+j\7 Next j Print a End Sub 在运行时输出a的值是()
A . 5
B . 4
C . 3
D . 2
-
下列程序输出结果为( )。 Private Sub Command1_Click() a%=10 b%=5 Change a,b Print a,b End Sub Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub
-
设有以下程序片段 : Public x% Private y$ Private Sub Command1_Click() Dim a …… End Sub Private Sub Command2_Click() Static b …… End Sub 在 Command1_Click 过程中无法访问的变量是 ________ 。
-
以下程序的运行结果是( )。Private Sub Command1_Click()a = 1: b = 2Print \A=
-
以下程序的循环次数是( )。Private Sub Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd Sub
-
Private Sub Command1_Click() m = -5.4 If Sgn(m) Then n = Int(m) Else n = Abs(m) End If Print n End Sub
-
以下程序的循环次数是( )。 Private Sub Command1_Click() For j=8 To 35 Step 3 Print j; Next j End Sub
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()X=0Do Until x=-1 a
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() X=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A)b=InputBox("请输入B的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为 ______。
A.2
B.3
C.14
D.15
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click(
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() s= "ABBACDDCAB" For i=6 To 2 Step -2 x=Mid(s,i,i) y=Left(s,i) z=x&y Next i MsgBox z End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.AABA
B.ABBA
C.BABBA
D.BBAB
-
执行以下程序后输出的是_________。Private Sub Command1_Click)Ch$="AABCDEFGH"Print MidRightch$,6),Lenleftch$,4)),2)End Sub
A.A.CDEFGH
B.B.ABCD
C.C.FG
D.D.AB
-
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;Private Sub Command1_Click()a $
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程; Private Sub Command1_Click() a $="software and hardware" b $=Right(a$, 8) c $=Mid(a$, 1, 8) MsgBox a$, ,b$,c$,1 End Sub 运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是______。
A.software and hardware
B.software
C.hardware
D.1
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c = 1234 c1 = Trim(Str(C)) For i = 1 To 4 Print_____ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
-
有如下代码: Private Sub Command1_Click()
A.1
B.2
C.3
D.4
-
Private Sub Command1_Click()
a=Val(InputBox("请输入a的值="))b=Val(InputBox("请输入a的值="))x=a+bIfa>bThen x=a-bEnd IfPrint xEnd Sub若运行时从键盘输入a和b分别为3和4,则程序输出的结果为()
A.1
B. 7
C. 10
D. 11
-
在窗体中添加一个名称为COMMAND1的命令按钮,然后编写如下事件代码: PRIVATE SUB COMMAND1_CLICK(
在窗体中添加一个名称为COMMAND1的命令按钮,然后编写如下事件代码: PRIVATE SUB COMMAND1_CLICK() A =75 IF A >60 THEN K=1 ELSEIF A > 70 THEN K=2 ELSEIF A > 80 THEN K=3 ELSEIF A >90 THEN K=4 ENDIF MSGBOX K END SUB 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.1
B.2
C.3
D.4
-
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:Private Sub Command1_Click()
在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() A=75 If A>60 Then I=1 If A>70 Then 1=2 If A>80 Then 1=3 If A>90 Then 1=4 MsgBox I End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是()。
A.1
B.2
C.3
D.4
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 Then in=m+n/3 Next Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是
A.15
B.18
C.21
D.24
-
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_click() Di
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容,是 ______。
A.79
B.340
C.97
D.死循环
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()c=
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c=“ABCD” For n=l to 4 Print______ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在______处应填入的内容为
A.Left(c,n)
B.Right(c,n)
C.Mid(c,n,1)
D.Mid(c,n,n)
-
有如下程序:Private Sub Command1_Click()Fo rj=1 To 10a=a+j\7Next jPrint aEnd Sub在运行时输出a的值是()
A.5
B.4
C.3
D.2
-
以下的输出结果是 Option Base 1 Private Sub Command1_Click()Dim a(),p(3)
A.s Integer k=5 For I=1 To 10 A(I)=I Next I For I=1 To 3 p(I)=a(I*I) Next I For I=1 To 3 k=k+p(I)*2 Next I Print k End sub
A.33
B.28
C.35
D.37
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
A.Right
B.Left
C.Val
D.Mid
-
窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器,并有下面事件过程: Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Form_Load() Timer1.Interval=5 Timer1.Enabled=False End Sub Private Sub Timer1_Timer(
A.命令按钮每5毫秒向左移动一次
B. 命令按钮每5毫秒向右移动一次
C. 命令按钮每5秒向左移动一次
D. 命令按钮每5秒向右移动一次