Dim n, i, t As Long n = Val(Text1.Text) i = 1: t = 1 If n < 0 Then
Label2.Caption = \ ElseIf n = 0 Then
Label2.Caption = \ Else
Do While i <= n t = t * i i = i + 1 Loop
Label2.Caption = n & \ End If End Sub
13、参考代码如下：
Private Sub Form_Load()
Dim Prev, Last, NewOne, sum As Long Dim i As Integer
Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20
NewOne = Prev + Last sum = sum + NewOne Prev = Last Last = NewOne Next i
Label1.Caption = \第20项为\
第 46 页 共 32 页
Label2.Caption = \前20项的和为\End Sub
第四章 常用控件与窗体
一、填空题
1、AddItem 2、窗体、控件 3、StartUpPostion 4、form1.hide 5、sorted、ture 6、text1、tabindex、0 7、chr(10) 8、timer 9、interval
10、scroll和change事件 11、mousepointer
12、selected、text、list1.text、removeitem 2*i-1、x,2*i-1 13、change、value、scrol、value 14、List 15、Checked 16、keypress 17、组合框 18、Form2.Show 1 19、Click（或鼠标单击）
二、选择题
1、C 2、B
第 47 页 共 32 页
3、A 4、C 5、A 6、A 7、C 8、A 9、C 10、B 11、C 12、C 13、A 14、D 15、A 16、A 17、D 18、D 19、D 20、A 21、C 22、B
三、简答题
1、单选按钮用来显示一个可以打开或关闭 选项，而且在同一组中的单选按钮控件，用户只能选择其中的一项。
2、主要是用鼠标拖动滑块时对Value属性的影响不同。
3、快捷键是执行某一个菜单项的键盘命令，常用形式Ctrl+字母，访问键是打开一个菜单的键盘命令，常用形式Alt+字母。 4、Scroll事件
第 48 页 共 32 页
5、MenuItem.Enabled=False 6、Interval属性
7、单选按钮用于只能选择一个的情况下，复选框（即检查框）用于可以选择多个的情况下 8、为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择
9、菜单的形式有两种：下拉式菜单和弹出式菜单
10、在KeyPress事件中，若想取消用户刚输入的字符，只要将该事件的参数设置为0即可 11、框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面 12、250
13、在一个窗体的程序代码中可以访问另一个窗体上控件的属性，在访问时只要写上窗体名称即可
14、先建立框架，然后再在其中建立控件 15、下拉式组合框、简单组合框、下拉式列表框
四、读程序题
1、输出结果为：
498 5
2、结果如下：
14
五、编程题
1、参考代码如下：
Private Sub Form_Load() Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer() Txttime.text = Time End Sub
第 49 页 共 32 页
2、参考代码如下：
Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text)
Text2.Text = Text2.Text & Spc(5) & Char & _ Spc(10) & Str(Asc(Char)) & chr(13)&chr(10) Text1.SetFocus Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
3、具体代码略。 4、具体代码略。 5、具体代码略。 6、具体代码略。 7、具体代码略。
六、程序分析填空题
1、结果如下：
Private Sub btnCut_Click() ?请补充
Str1 = text1.selText text1.selText = “” End Sub 2、结果如下：
Private Sub Form_Load()
Dim sum,count as Integer ?请补充 Sum = 0 第 50 页 共 32 页