更多"设窗体上有名称为Option1的单选按钮，且程序中有语句：If Opt"的相关试题:
[单项选择]设窗体上有名称为Optionl的单选按钮，且程序中有语句： If Optionl．Value=True Then下面语句中与该语句不等价的是
A. If optionl．Value Then
B. If optionl=True Then
C. If Value=True Then
D. If optionl Then
[单项选择]设窗体上有名称为Option1的单选按钮，且程序中有语句：
If Option1.Value=True Then
下面语句中与该语句不等价的是______。
A. if Option1.Value Then
B. If Optionl=True Then
C. If Value=True Then
D. If Optionl Then
[单项选择]设窗体上有名称为Optl的单选按钮，且程序中有语句： If Optl．Value=True Then 下面语句中与该语句不等价的是( )。
A. IfOptl．Value Then
B. If Value=True Then
C. If Optl=True Then
D. If Optl Then
[单项选择]窗体上有名称为Option1的单选按钮，且程序中有语句：
If（ ）ption1．Value—True Then
下面语句中与该语句不等价的是( )。
A. If Option1．Value Then
B. If Option1一True Then
C. If Value=True Then
D. If Option1 Then
[单项选择]设窗体文件中有下面的事件过程：
Private Sub Command1_Click（ ） Dim s a%=100 Print a End Sub
其中变量a和s的数据类型分别是
A. 整型，整型
B. 变体型，变体型
C. 整型，变体型
D. 变体型，整型
[单项选择]设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发
A. Text1的SetFocus事件
B. Text1的GotFocus事件
C. Text1的LostFocus事件
D. 窗体的GotFocus事件
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim s As String，ch As String
s = " "
For k = 1 To Len(Text1)
ch = Mid(Text1, k, 1)
s = ch + s
Next k
Text1. Text = s
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
A. Basic
B. cisaB
C. BASIC D) CISAB
[填空题]设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。
Dim______As Integer
Private Sub Form_Load（ ）
pos=HScroIII.Value
End Sub
Private Sub HScroIII_Change（ ）
Print______-pos
pos=HScroIII.Value
End Sub
[填空题]设窗体上有一个名称为Hscroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。
Dim (10) As Integer
Private Sub Form_Load（ ）
pos=HScroll1.Value
End Sub
Private Sub HScroll1_Change（ ）
print (11) -pos
pos=HScroll1.Value
End Sub
[填空题]设窗体上有一个名称为Combo1的组合框，并有以下程序：
Private Sub ComboLKeyPress(KeyAscii As Integer)
If (7) =13 Then 回车符的ASCⅡ码是13
For k=0 To (8) -1
If Combo1.Text=Combo1.List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1.Text＜＞" "Then
Combo1.AddItem (9)
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。
[单项选择]设窗体上有一个名称为Timerl的计时器控件，其Interval属性被设置为500，Enabled属性被设置为True；还有一个名称为Text1的文本框和下面的事件过程： Private Sub Timer 1—Timer（ ） Static xAs Long x=x+l：Text1=x End Sub 程序运行一段时间后，文本框中显示的是100，则表示
A. 程序已经运行了100秒
B. 程序已经运行了100毫秒
C. 程序已经运行了50秒
D. 文本框到窗体左边框的距离是100
[单项选择]设窗体上有一个名称为Checkl的复选框，并有下面程序代码： Private Sub Checkl_MouseDown(Button As Integer,Shift As Integer，X As Single，Y As Single) Checkl．Value=1 End Sub 根据上面的事件过程，可以得出结论
A. 鼠标单击该复选框，复选框的标题被改为“1”
B. 鼠标右键单击该复选框，可以选中该复选框
C. 鼠标左键单击该复选框，它被选中，右键单击它，取消选中
D. 鼠标右键单击该复选框，它被选中，左键单击它，取消选中
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（ ） Show
Text1.Text = "" Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Print "程序设计" End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic";
End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是______。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
