1、 Else min = y If z 3 Then y = x + 3 ElseIf x = 1 Then y = x * x ElseIf x 0 Then y = Sqr(x) Else y = 0 End If Print yEnd Sub程序3界面设计略，过程设计如下：Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To 9 Print Tab(j - 1) * 4); i * j; Next j Print Next iEnd Sub程序4界面设计略，过程设计如下：Pri
2、vate Sub Form_Click() Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integer x = InputBox(请输入x的值：) n = InputBox(请输入n的值：) t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i Print sEnd Sub程序5界面设计略，过程设计如下：Private Sub Form_Click() Dim e As Single, t As Single, i As Integer
3、e = 2: t = 1: i = 1 While t = 0.0001 i = i + 1: t = t / i: e = e + t Wend Print eEnd Sub程序6界面设计略，过程设计如下：Option Base 1Private Sub Form_Click() Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k 下列代码中若出现错误，转到标号为K的语句执行。 n = InputBox(请输入n，0n10) For i = 1 To n: a(i, 1) = 1:
4、a(i, i) = 1: Next i For i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, i For i = 1 To n Print Tab(30 - 2 * i); For j = 1 To i Print Space(4 - Len(Trim(Str(a(i, j); Trim(Str(a(i, j); Next j Print Next i Exit Subk: MsgBox 输入n值小于1或大于10，数组下标超界。End Sub第4章 函数与过程一、判断题1 2 3 4
5、5 6 7 8二、填空题1按地址传送 2b() As Long 36 4按值传递 5按地址传递6Public x As Single 7Static x As Integer 8Form2.y三、程序阅读题（写出下列程序的运行结果）程序1. s = 2 程序2. 1 程序3. 1 1 2 1 1 2 1 2 2 2 2 3 s = 5 1 1 s = 9 1 2 1 1 3 3 1 1 4 6 4 1四、程序填空题1（1）ByeVal （2）k Mod i （3）k = k i （4）Call pp(i)2（1）a() Aa Double （2）n-1 （3）a(j) Abs(xmax) Th
6、en xmax = x(i, j): ki = i: kj = j Next j, i End Sub第5章 常用控件一、判断题1 2 3 4 5 6 7 8 910 11 12 13 14 15 16 17 1819 20 21 22 23 24 25二、选择题1C 2D 3B 4B 5B 6C 7B 8B 9B 10A11D 12C 13B 14B 15A 16D 17B 18B 19B 20A三、填空题1上、下、左、左 2缇、无关 3&、+ 4Enabled 5MaxLength6Text1.SetFocus 7MultiLine 8Visible 9Alignment 10AutoSi
7、ze11ForeColor 120或1 13True 141 15AddItem161 17List1.Clear 18文本框、列表框19下拉式组合框、简单组合框、下拉式列表框 20Scroll 21Value22Change 23定时器不起作用 24Timer 2565535四、程序阅读题程序1. 116 程序2. 8程序3. 23451 程序4. 小，你好！ 程序5. 您好34512 小李，你好！ 欢迎使用Visual Basic!程序6. 李子 程序7.y = 6 程序8.n = 1苹果 y = 14 n = 3 橘子 n = 5 葡萄 柚子 香蕉五、程序填空题1（1）a(i) = Mi
8、d(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1) （2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True2（1）1 To 2*i1 （2）Command2.Enabled = True （3）Command2.Enabled = False3（1）Text2.Enabled = False （2）p = 2 （3）Print i （4）Val(Text1.Text) 2 或 Val(Text1.Text) 10 Then Label1.Caption = 差！重新开始: Call Form_Load Else If m num Then Label1.Caption = Str(m) & 大了！ ElseIf m num Then Label1.Caption = Str(m) & 小了！ Else If rec 5 Then Label1.Caption = 好！猜对了。 Else Label1.Caption = 还行！猜对了。 End If Call Form
个人主页
