更多"在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如"的相关试题:
[单项选择]在窗体上画一个命令按钮,名称为Comraandl。单击该命令按钮时,执行如下事件过程:
Private Sub Command1_Click( )
a$="software and hardware"
b$=Right(a$, 8)
c$=Mid(a$, 1, 8)+b$
MsgSox a$, 1, b$
End Sub
则在弹出的消息框的标题栏中显示的信息是______。
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮,名称为Command1。
Private Sub Command1 Click( )
Dim x As Integer,y As Integer
x=10:y:0
Do
x=x+2:y=y+x
Print "x=", x; "y=",y
If y>20 Then Exit Do
Loop Until x=18
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是 ______。
A. x=12y=12
B. x=12 y=12
C. x=12 y=12
D. x= 12 y=12
[单项选择]在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果为 ( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i, "*")
Print x
Next i
End Sub
Private Sub Command1_Click( )
p1 (3)
End Sub
A) * * *
* *
*
B) *
* *
* * *
C) *
*
*
D) * * * * * *
[简答题]完成下列问题:
在名称为Form1的窗体上画一个命令按钮,名称为Command1,其标题为“移动本按钮”,如图2所示。
[*]
要求编写适当的事件过程,使得程序运行时,每单击按钮一次,按钮向左移动100。
要求:程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
[单项选择]在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码:
Option Base 0
Private Sub Commandl_Click( )
DimA(4)As Integer,B(4)As Integer
Fork=0 To 2
A(k+1)=InputBox(“请输入一个整数”)
B(3-k)=A(k+1)
Nextk
PrintB(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为( )。
A. 0
B. 2
C. 3
D. 4
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
Option Base 0
Private Sub Commandl_Click( )
Dim A(4)As integer,B(4)As Integer
For k=0 To 2
A(k+1)=InputBox("请输入一个整数")
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为【 】
A. 0
B. 2
C. 3
D. 4
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写下列代码:
Option Base 0
Private Sub Command1 Click( )
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
A. 0
B. 1
C. 2
D. 3
[填空题]
在窗体上画一个命令按钮,名称为Commandl,然后编写如下程序:
Privme Sub Commandl_Click( )
Dim intNum As Integer
intNum=InputBox(“请输入:”)
MsgBox f(intNum)
End Sub
Function f(X As Integer) As Integer
f=IIf (X<10,X,X+5)
End Function
运行程序,单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。
[单项选择]在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果是( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i,"*")
Print x
Next i
End Sub
Private Sub Command1_Click( )
p1(3)
End Sub
A. ***
B. *
C. *
D. ******
[填空题]在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为 Text1),然后编写如下事件过程:
Private Sub Command1_Click( )
x=Val(Text1.Text)
Select Case x
Case 1,3
y=x*x
Case Is>=10,Is<=-10
y=x
Case-10 To 10
y=-x
End Select
End Sub
程序运行后,在文本框中输入3,然后单击命令按钮,则y的值变为______。
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
Option Base 0
Private Sub Command1_Click( )
Dim A1 (4) As Integer, A2 (4) As Integer
For k = 0 To 2
A1 (k+1) = InputBox("请输入一个整数")
A2 (3-k) = A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
A. 0
B. 1
C. 2
D. 3
[单项选择]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:
Private Sub Command1_Click( )
For I=1 To 2
For J=1 To I
Print String(I,"Hello");
Next J
Print
Next I
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A) H B) H C) HHHHH D) H
HH HHHH HH
HH HHHH
[单项选择]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click( ) Dim i As Integer,a As Integer Do While i<20 Do While True If i Mod 10=0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+i Loop Printa End Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A. 21
B. 32
C. 33
D. 11