更多"[单选题]在窗体上画一个列表框,名称为List1,然后编写如下事件过程"的相关试题:
[单选题]在窗体上画一个名称为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
[单选题]在窗体上画一个名称为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的命令按钮,然后编写以下程序代码: ( )
A.75
B.23
C.57
D.32
[单选题]在窗体上画一个名称为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
[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
D=0
C=10
X=Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x (i) > c Then
D=d+x(i)
C =x(i)
Else
D=d-c
End If
Next i
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ( )。
A. 89
B. 99
C. 23
D. 77
[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( ) ( )
A.分支1
B.分支2
C.分支3
D.无任何输出
[单选题]在窗体上画一个名称为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的命令按钮,并编写如下程序:
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
[单选题] 在窗体上画一个文本框(名称为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
[单选题] 设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是( )。
A. List1.List
B. List1.ListIndex
C. List1.Text
D. List1.Index
[单选题]在窗体上建立一个标签数组,名称为Label1,下标从0开始,自左至右顺序增大,然后编写如下事件过程: ( )
Private Sub Form_Click( )
For Each Label In Label1
Label1(i). Caption = Label1(i). Index
I = i + 1
Next
End Sub
运行程序,单击窗体,在4个标签(从左至右)中显示的内容分别为______。
A.0 1 2 3
B.1 2 3 4
C.3 2 1 0
D.出错
[单选题]将数据项“Student”添加到名称为List1的列表框中,并使其成为列表框第一项的语句为( )。
A. List1. AddItem "Student", 0
B. List1. AddItem "Student", 1
C. List1. AddItem 0, "Student"
D. List1. AddItem 1, "Student"
[单选题]在窗体上画一个命令按钮和一个文本框,其名称分别为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
[单选题]设列表框的名称为List1,则下列与List1. Text中的值相同的属性值是______。 ( )
A.List1. ListCount
B.List1. List(List1. ListIndex)
C.List1. List(ListCount - 1)
D.List1. ListIndex
[单选题] 窗体上有一个名称为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的小数部分四舍五入,转换为整数返回
---------------------------------------------------------------------------
[填空题] 窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3( )。编写程序如下:
