窗体上有一名为Text1的文本框,三个单选按钮构成控件数组,名称为Option1,程序运行后,单击某个单选按钮,则文本框中的字体随着随选择的单选按钮切换,请完善下面程序.
Private Sub Option1_Click(Index As Integer)
Select Case 【1】
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
Text1.【2】 = a
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case 【1】
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
Text1.【2】 = a
End Sub
举一反三
- 编写如下程序: Private Sub Command1_Click； Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1
- 下列程序的输出结果是 。 Private Sub exam1() a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i MsgBox a End Sub
- 设有如下窗体单击事件过程,则窗体运行后,单击窗体,消息框输出的结果是______。 Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1,3 a=a+1 Case 2,4 a=a+2 End Select Next i MsgBox End Sub
- 设有以下窗体单击事件过程: Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1,3 a=a+1 Case 2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出内容是
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1和两个文本框Text1和Text2，然后编写如下事件过程：Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。