更多"[单选题] 窗体上有一个名称为Command1的命令按钮,其事件过程如"的相关试题:
[单选题]在窗体上画一个名称为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
[单选题] 设有如下一段程序:
Private Sub Command1_Cliek( )
Static a As Variant
A=Array("one", "two", "three", "four five")
Print a(3)
End Sub
针对上述事件过程,以下叙述中正确的是( )。
A. 变量声明语句有错,应改为Static a(5)As Variant
B. 变量声明语句有错,应改为static a
C. 可以正常运行,在窗体上显示three
D. 可以正常运行,在窗体上显示four
[单选题]有下面程序代码:
Private Sub Command1_Click( )
Dim
A, s As Integer
A = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
K = 1
S = 0
Do
S = s + a(k)
K = k + 2
Loop Until k > UBoundA.
Print s
End Sub
程序运行产生的输出是______。 ( )
A.45
B.20
C.16
D.25
[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( ) ( )
A.分支1
B.分支2
C.分支3
D.无任何输出
[单选题]设有如下程序代码:
Private Sub Command1_Click( )
Dim x As Integer
X = 30
Print f(x) + f(x)
End Sub
Private Function f(a As Integer) As Integer
A = a/3
F = a
End Function
运行Command1_Click过程所产生的输出是______。 ( )
A.13
B.20
C.30
D.6
[单选题] 窗体上有一个名称为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的命令按钮和一个名称为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,并有如下事件过程:
Private Sub Text1_Change(Index As Integer)
Select Case Index
Case 0
Text1 (1). FontSize = Text1 (0). FontSize * 2
Text1 (1). Text = Text1 (0). Text
Case 1
Text1 (0). FontSize = Text1 (1). FontSize / 2
Text1 (0). Text = Text1 (1). Text
Case Else
MsgBox "执行Else分支"
End Select
End Sub
关于上述程序,以下叙述中错误的是( )。
A. Index用于标识数组元素
B. 本程序中Case Else分支的语句永远不会被执行
C. 向任何一个文本框输入字符,都会在另一个文本框中显示该字符
D. 下标为0的文本框中显示的字符尺寸将越来越小
[单选题]设有窗体的Form_MouseMove事件过程如下:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
K(Button And 3) = 3 Then
Print "检查按键"
End If
End Sub
关于上述过程,以下叙述中正确的是 ( )。
A. 按下鼠标左键时,在窗体上显示“检查按键”
B. 按下鼠标右键时,在窗体上显示“检查按键”
C. 同时按下鼠标左、右键时,在窗体上显示“检查按键”
D. 不论做何种操作,窗体上都不会显示
[填空题] 窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3( )。编写程序如下:
[单选题]窗体上有一个名称为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. 上面事件过程实现保存文件的操作
[单选题] 设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是( )。
A. List1.List
B. List1.ListIndex
C. List1.Text
D. List1.Index
[单选题]在WinForms的窗体继承中父窗体控件中的( )属性可以控制是否可以被子窗体修改(选一项)
A.Modifiers
B.Locked
C.TopMost
D.Enabled
[单选题]在WinForm应用程序中，可以通过以下（）方法使一个窗体成为MDI窗体
A.改变窗体的标题信息
B.在工程的选项中设置启动窗体
C.设置窗体的IsMdiContainer属性
D.设置窗体的ImeMode属性
[单选题]要使窗体启动时位于屏幕中央，应设置窗体的StartPosition属性为（ ）。
A.CenterScreen
B.WindowsDefaultBounds
C.CenterParent
D.WindowsDefaultLocation
[单选题]设有工程文件Proj,其中含有Form1窗体、Form2窗体、标准模块Module1. bas在Form1窗体模块的通用声明段中书写了如下语句Public X As Integer,在Form1窗体模块中还定义了通用过程LocalSub。则以下说法中正确的是______。 ( )
A.可以在整个Proj工程中的所有模块中使用变量X
B.只能在窗体Form1和Form2中使用变量X,但不能在标准模块Module1中使用变量X
C.在标准模块Module1中可以使用变量X,但在窗体Form2中不能使用变量X
D.变量X的作用范围不包含Form1中的LocalSub
[单选题]为了在某WinForms窗体主菜单的一个菜单选项中显示所有打开的子窗体列表，需要设置该菜单项的（）属性为true
A.Enbable
B.Checked
C.Mdilist
D.RadioCheck
