更多"[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下"的相关试题:
[单选题]在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
Private Sub Command1_Click()
A = InputBox( "Enter an integer" )
B = Text1. Text
Text1. Text = b + a
End Sub
程序运行后,在文本框中输入456,然后单击命令按钮,在输入对话框中输入123,则文本框中显示的内容是 ( )。
A. 579
B. 123
C. 456123
D. 456
[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( ) ( )
A.分支1
B.分支2
C.分支3
D.无任何输出
[单选题]在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
A = 20
B = 5
Call sub1(a, b)
Print a; b
End Sub
Private Sub sub1(ByRef x1 As Integer, y1 As Integer)
X1 = x1 + 3
Y1 = x1 + y1
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是______。 ( )
A.23 23
B.23 28
C.20 5
D.20 25
[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写其Click事件过程代码如下:
Private Sub Command1_Click( )
Dim i As Integer, num As Integer
Do
For i = 1 To 10
Num=Int(Rnd * 10) + 1
Select Case num
Case 2
Exit For
Case 7
Exit Do
End Select
N = n + 1
Next i
Loop
Print n
End Sub
则下面描述中正确的是______。 ( B )
A.当变量num的值为2时,事件过程Command1_Click执行结束
B.当变量num的值为7时,Do循环将终止
C.变量num的值一定是大于或等于11的整数
D.Do循环的执行次数一定为10次
[单选题]在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:
Private Sub Command1_Click()
S=0
For i=1 To 15
X=2 * i-1
If x Mod 3=0 Then s=s+1
Next i
Label1. Caption = s
End Sub
程序运行后,单击命令按钮,则标签中显示的内容是 ( )。
A. 1
B. 5
C. 27
D. 45
[单选题]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim array1 (10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
Arrayl(i, j) = i + j
Next j
Next i
Text1. Text = array1 (2, 3) + array1 (3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是 ( )。
A. 15
B. 14
C. 13
D. 12
[单选题]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写以下程序代码: ( )
A.75
B.23
C.57
D.32
[单选题]在窗体上画一个列表框,名称为List1,然后编写如下事件过程: ( )
A.1,3,5
B.2,4,6
C.1,2,3
D.4,5,6
[单选题] 在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为“宋体”和“黑体”;1个复选框(名称为Check1,标题为“粗体”)和1个文本框(名称为Text1,Text属性为“改变文字字体”)。程序运行后,要求“宋体”单选按钮和“粗体”复选框被选中,则以下能够实现上述操作的语句序列是 ( )。
A. Option1.Value = False
Cheek1.Value = True
B. Option1.Value = True
Check1.Value = 0
C. Option2.Value = False
Check1.Value = 2
D. Option1.Value = True
Check1.Value = 1
[单选题]在窗体上画一个名称为Label1的标签和一个名称为List1的列表框,并在设计阶段向List1中添加若干列表项。程序运行时,当双击List1中的某个列表项时,在Label1中显示所选中的列表项,能实现上述功能的语句是______。 ( )
A.Label1.Caption = List1.Text
B.Label1.Caption = List1.ListIndex
C.Label1.Text = List1.List
D.Label1. Text = List1.ListIndex
[单选题] 在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
A. Private Sub Text1_Change( )
Label1.Caption = Str( Len( Text1.Text) )
End Sub
B. Private Sub Text1_Click( )
Label1.Caption = Str( Len( Text1.Text) )
End Sub
C. Private Sub Text1_Change( )
Label1.Caption = Text1.Text
End Sub
D. Private Sub Label1_Change( )
Label1.Caption = Str( Len( Text1.Text) )
End Sub
[单选题]使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是 ( )。
A. X1=0,X2=600,Y1=0,Y2=700
B. Y1=0,Y2=600,X1=0,X2=700
C. X1=0,X2=0,Y1=600,Y2=700
D. Y1=0,Y2=0,X1=600,X2=700
[单选题]卸载窗体的操作命令应为（ ）。
A.Move()
B.Hide()
C.Load()
D.Dispose()
[单选题] 窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:
Private Type x
A As Integer
B As Integer
End Type
Private Sub Command1_Click( )
Dim y As x
Y. a = InputBox( )
If y. a\2 =y. a / 2 Then
Y. b=y. a * y. a
Else
Y. b = Fix(y. a / 2)
End If
Text1. Text = y. b
End Sub
对以上程序,下列叙述中错误的是( )。
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数,y. b的值为该偶数的平方
D. Fix(y. a/2)把y. a/2的小数部分四舍五入,转换为整数返回
---------------------------------------------------------------------------
[单选题] 窗体上有一个名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
X = "VisuatBasicProgramming"
A = Right(x, 11)
B =Mid(x, 7, 5)
C = MsgBox(a , , b)
End Sub
运行程序后单击命令按钮。以下叙述中错误的是( )。
A. 信息框的标题是Basic
B. 信息框中的提示信息是Programming
C. c的值是函数的返回值
D. MsgBox的使用格式有错
[单选题]窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下:
Private Sub Command1_Click()
CD1. Filter = "All File| *. * |Text File| *. txt|PPT| *. ppt"
CD1. FiherIndex = 2
CD1. InitDir = "C: \"
CD1. FileName = "default"
CD1. ShowSave
End Sub
关于上述过程,以下叙述中正确的是 ( )。
A. 默认过滤器为“*. ppt”
B. 指定的初始目录为“C: \”
C. 打开的文件对话框的标题为“default”
D. 上面事件过程实现保存文件的操作
