更多"[单选题]已知在winforms窗体中有一个Timer控件，Inter"的相关试题:
[填空题] 窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3( )。编写程序如下:
[单选题]设窗体上有一个名称为Command1的命令按钮和一个名称为Timer1的计时器,并有下面程序代码:
Private Sub Form_Load( )
Timer1. Enabled = False
Timer1. Interval = 500
End Sub
Private Sub Command1_Click( )
Timer1. Enabled = True
End Sub
Private Sub Timer1_Timer( )
If Command1. Left > 0 Then
Command1. Left = Command1. Left - 100
End If
End Sub
下面叙述中正确的是______。 ( )
A.程序一运行,命令按钮就向左移动,到窗体左端停止
B.程序运行后,单击命令按钮,则按钮向左移动,到窗体左端停止
C.程序运行后,单击命令按钮,则按钮向左移动,每秒移动一次
D.程序一运行,命令按钮就向右移动,到窗体右端停止
[单选题] 窗体上有一个名称为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的命令按钮,一个名称为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
[单选题]窗体上有一个名称为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. 上面事件过程实现保存文件的操作
[单选题]在窗体上画一个名称为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和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
[单选题]在窗体上画一个名称为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
[单选题]为了在某WinForms窗体主菜单的一个菜单选项中显示所有打开的子窗体列表，需要设置该菜单项的（）属性为true
A.Enbable
B.Checked
C.Mdilist
D.RadioCheck
[单选题]在WinForm应用程序中，可以通过以下（）方法使一个窗体成为MDI窗体
A.改变窗体的标题信息
B.在工程的选项中设置启动窗体
C.设置窗体的IsMdiContainer属性
D.设置窗体的ImeMode属性
[单选题] 窗体上有一个名称为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的使用格式有错
[单选题]在窗体上画一个名称为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
[单选题]在窗体上画一个列表框,名称为List1,然后编写如下事件过程: ( )
A.1,3,5
B.2,4,6
C.1,2,3
D.4,5,6
[单选题]在窗体上画一个名称为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的命令按钮,然后编写如下事件过程:
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Print "ABCD";
Else
Print "DDDD";
End If
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "EFGH"
End Sub
程序运行后,单击命令按钮,输出结果是______。 ( )
A.ABCDEFGH
B.DDDDEFGH
C.ABCD
D.EFGH
