内容发布更新时间 : 2025/7/16 15:53:48星期一 下面是文章的全部内容请认真阅读。
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、为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择