《Visual Basic程序设计基础》习题参考答案(2)

y = x + 3

ElseIf x >= 1 Then y = x * x ElseIf x > 0 Then y = Sqr(x) Else y = 0 End If Print y End 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 i End Sub

程序4．界面设计略，过程设计如下： Private 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 s End Sub

程序5．界面设计略，过程设计如下： Private Sub Form_Click()

Dim e As Single, t As Single, i As Integer e = 2: t = 1: i = 1

While t >= 0.0001

i = i + 1: t = t / i: e = e + t Wend Print e End Sub

程序6．界面设计略，过程设计如下： Option Base 1

Private 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，0

For i = 1 To n: a(i, 1) = 1: 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 Sub

k: MsgBox \输入n值小于1或大于10，数组下标超界。\End Sub

第4章 函数与过程

一、判断题

1．× 2．√ 3．× 4．× 5．√ 6．× 7．× 8．√ 二、填空题

1．按地址传送 2．b() As Long 3．6 4．按值传递 5．按地址传递 6．Public x As Single 7．Static x As Integer 8．Form2.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 2．（1）a() Aa Double （2）n-1 （3）a(j) < a(k) 3．（1）a() As Double, n As Integer 五、程序设计题

程序1．界面设计略，过程设计如下：

Private Function fsum(x() As Double, n As Integer) As Double Dim i As Integer For i = 1 To n fsum = fsum + x(i) Next i

fsum = fsum / n End Function

程序2．界面设计略，过程设计如下：

Private Sub ff(a() As Single, n As Integer) Dim i As Integer, x As Single For i = 1 To n \\ 2

x = a(n - i + 1): a(n - i + 1) = a(i): a(i) = x Next i End Sub

程序3．界面设计略，过程设计如下：

Private Sub find(x() As Single, m As byte, n As Byte, _ xmax As Single,ki As Byte,kj As Byte）

xmax = x(1,1): ki = 1: kj = 1 For i = 1 To m For j = 1 To n

If Abs(x(i, j)) > Abs(xmax) Then xmax = x(i, j): ki = i: kj = j Next j, i End Sub

（2）t = t * x

（3）f = s （4）Call pp(i)

第5章 常用控件

一、判断题

1．× 2．× 3．× 4．√ 5．× 6．√ 7．× 8．√ 9．√ 10．√ 11．× 12．× 13．√ 14．√ 15．× 16．× 17．× 18．√ 19．√ 20．× 21．√ 22．× 23．√ 24．× 25．√ 二、选择题

1．C 2．D 3．B 4．B 5．B 6．C 7．B 8．B 9．B 10．A 11．D 12．C 13．B 14．B 15．A 16．D 17．B 18．B 19．B 20．A 三、填空题

1．上、下、左、左 2．缇、无关 3．&、+ 4．Enabled 5．MaxLength 6．Text1.SetFocus 7．MultiLine 8．Visible 9．Alignment 10．AutoSize 11．ForeColor 12．0或1 13．True 14．1 15．AddItem 16．1 17．List1.Clear 18．文本框、列表框

19．下拉式组合框、简单组合框、下拉式列表框 20．Scroll 21．Value 22．Change 23．定时器不起作用 24．Timer 25．65535

四、程序阅读题

程序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) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1)

（2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True 2．（1）1 To 2*i–1 （2）Command2.Enabled = True （3）Command2.Enabled = False 3．（1）Text2.Enabled = False （2）p = 2 （3）Print i （4）Val(Text1.Text) < 2 或 Val(Text1.Text) <= 1 （5）KeyAscii = 13

4．（1）List1.ListCount （2）List1.RemoveItem I （3）i = i + 1 5．（1）Timer1.Enabled = True （2）x \\ 3600

（3）(x Mod 3600) \\ 60 或 (x - 3600 * h) \\ 60 （4）x = x + 1 6．（1）Label1.Left （2）Label1.Left = -Label1.Width 六、程序设计题 …… 此处隐藏：1387字，全部文档内容请下载后查看。喜欢就下载吧 ……