Else
If c=0 then
Text4.Text = \有无穷根\ Else
Text4.Text = \无根\ End if End if Else
' 下面嵌套块If语句 If delt = 0 Then
Label2.Caption = \有两个相等的实根:\ Text4.Text = \ Text5.Text = \ ElseIf delt > 0 Then
Label2.Caption = \有两个不等的实根:\ Text4.Text = \ Text5.Text = \ Else
Label2.Caption = \有两个共轭复根:\ realpart = -b / (2 * a) imagpart = Sqr(-delt) / (2 * a)
Text4.Text = \ Text5.Text = \ End If ' 此行End If部分与内层的块If语句对应 End If ' 此行End If部分与外层的块If语句对应 End Sub
46
12、参考代码如下：
Private Sub Command1_Click() 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
47
Last = NewOne Next i
Label1.Caption = \第20项为\ 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（或鼠标单击）
48
二、选择题 1、C 2、B 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、单选按钮用来显示一个可以打开或关闭 选项，而且在同一组中的单选按钮控件，用户只能选择其中的一项。
49
2、主要是用鼠标拖动滑块时对Value属性的影响不同。
3、快捷键是执行某一个菜单项的键盘命令，常用形式Ctrl+字母，访问键是打开一个菜单的键盘命令，常用形式Alt+字母。 4、Scroll事件
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
50