vb程序设计书习题和参考答案(2)

End Sub

程序6. 请写出单击命令按钮后，窗体上的显示结果。

Private Sub Command1_Click()

Dim i As Integer Do Until i >= 3

Print Tab(4 * i + 1); \i = i + 1 Loop End Sub

三、程序填空题

234n?1n??1???????11．【程序说明】下面是一段计算数学表达式 2 ! ! 4 ! n ! 的程序。 3Private Sub Form_Click()

Dim n As Integer, p As Integer, s As Sigle, q As Integer, i As Integer n = InputBox(\请输入N的值:\ s = 0：p = -1：q = 1 For i = 1 To n

p = -p: q = （1） s = （2） （3） Print s

End Sub 2．【程序说明】下列程序用于计算1+（1+3）+（1+3+5）+?+（1+3+5+?+39）。

Private Sub Form_Click()

Dim t As Integer, m As Integer Dim sum As Integer t = 0 m = 1 sum = 0 Do

t = （1） sum = sum + t

（2） Loop While （3） Print \

End Sub 3．【程序说明】下列程序在文本框Text1中输入任一字符串，并按相反的顺序显示在文本框Text2中。

Private Sub Command1_Click()

Dim n As String, c As String, d As String n = Text1.Text

m = （1） For i = m To 1 Step -1

c = Mid(n, i, 1)

d = （2） Next i

（3）

End Sub

四、程序设计题

1．用InputBox函数输入3个任意整数，按从大到小的顺序输出。 2．编程，输入x值，按下式计算并输出y值。 ?x?5?2?x

y?f(x)???x?0?x?51?x?5 0?x?1x?03．计算下式的和，变量x与n的数值用输入对话框输入。

xx3x5x7x2n?1n?1 sinx???????(?1)?13!5!7!(2n?1)!

4．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。

1111e?1????...? 1!2!3!n!

习题四

一、选择题

1．窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界 。

A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0 2．用Dim c(2 to 5) As Integer 语句定义的数组占用 个字节的内存空间。

A、4 B、8 C、6 D、10 3．以下 是VB合法的数组元素。

A、x9 B、x[9] C、x(9) D、x{9} 4．设有数组声明语句：Dim a(2,3 to 4) As Integer

以上语句所定义的数组a为 维数组，共有 个元素，第一维下标从 到 ，第二维下标从 到 。

A、0 B、1 C、2 D、3 E、4 F、5 G、6 H、9 二、程序阅读题（写出下列程序的运行结果）

程序1. 在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：

Private Sub Command1_Click()

Dim a(5) As Integer,b(5) As Integer For j =1 to 4

a(j)=3*j b(j)=a(j)*3 Next j

Text1.text=b(j\\2) End Sub

程序运行后，单击命令按钮，写出程序的运行结果。

程序2. 在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：

Private Sub Command1_Click()

Dim a(10) As Integer Dim p(3) As Integer k = 1

For i = 1 To 10

a(i) = i Next i

For i = 1 To 3

p(i) = a(i * 2) Next i

For i = 1 To 3

k = k + p(i) * 2 Next i Print k End Sub

程序运行后，单击命令按钮，写出程序的运行结果。

程序3. 请写出单击窗体后，窗体上的显示结果。

Private Sub Form_Click()

Dim a(5, 5) As Byte, i AsByte, j As Byte For i = 1 To 5 : For j = 1 To 5 a(i, j) = i * j Next j, i

For i = 1 To 5 : Print a(i, i); : Next i

End Sub

程序4. 请写出单击窗体后，窗体上的显示结果。

Private Sub Form_Click()

Dim a(1 To 2,1 To 3) As Integer, i As Integer, j As Integer For i = 1 To 2 For j = 1 To 3

a(i,j) = i + j: Print Tab(j * 5 + 2); a(i,j), Next j Print Next i

End Sub 三、程序填空题

1．【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再

将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。

Private Sub Form_Click()

Dim a(30) As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a(i) = ⑴ : Next i For i = 1 To 29

For j = ⑵ If a(i) > a(j) Then

m = a(i): ⑶ :a(j) = m End If Next j,i

For i = 1 To 30

If ⑷ Then Print a(i); Next i

End Sub 2．【程序说明】以下程序产生20个两位随机整数存于数组之中，打印数组中大于50的数，并求出这些数的和。

Private Sub Command1_Click() Dim arr(1 To 20) As Integer Dim i As Integer, sum As Integer For i = 1 To 20

arr(i) = ⑴ Next i sum = 0

For i = 1 To 20

If ⑵ Then Print arr(i);

sum = ⑶ End If Next i

Print Tab(2); \

End Sub 3．【程序说明】下列程序用来在窗体上输出如图4-2所示大小可变的正方形数据。

Dim a() As Integer

Private Sub Form_Click()

Dim n As Integer, i As Integer Dim j As Integer, k As Integer

n = Val(InputBox(\请输入数据：\ ⑴ For i = 1 To ⑵ For j = i To n - i + 1 For k = i To n - i + 1 ⑶ Next k, j, i For i = 1 To n 图4-2 n为7时的输出图形

For j = 1 To n

Print Tab(j * 3); a(i, j); Next j

⑷ Next i

End Sub 四、程序设计题

1． 设有a，b两矩阵，编程完成两个矩阵的相乘，结果存入c矩阵中。

?2?3?22222????4 ???33333???5??622?33??44?

?55?66??

2． 编程产生10个[20，40]之间的随机整数存于一维数组a中，将a数组中的元素依次向后

移动一个位置，最后一个元素移动到第一个元素的位置上。 3．用二分法对已排好序（升序）的数据进行检索。

说明：二分查找法是对一批有序的数，取其中间元素，如果该元素是要找的数（key），输出该数的位置，否则，如果该元素大于key，则查找数列的范围缩小到该元素的前一个元素；如果该元素小于key，则查找数列的范围缩小为该元素的后一个元素到数列尾。重复上述方法，直到查找的数列范围缩小到0个元素。

习题五

一、选择题

1．在过程调用中，参数的传递可以分为 和 两种方式。

A、按值传递 B、按地址传递 C、按参数传递 D、按位置传递

2．在参数传递过程中，使用关键字 来修饰参数，可以使之按值传递。

A、ByVal B、ByRef C、Value D、Reference

3．在窗体模块的通用声明段中声明变量时，不能使用 关键字。

A、Dim B、Public C、Private D、Static

4．要想在过程调用后返回两个结果，下面的过程定义语句合法的是 。

A、Sub p(Byval n,Byval m) B、Sub p(n,byval m) C、Sub p(n,m) D、Sub p(Byval n,m) 5．Sub过程与Function过程最根本的区别是 。

A、Sub过程可以使用Call 语句或直接使用过程名调用，而Function过程不可以 B、Function过程可以有参数，Sub过程不可以 C、两种过程参数的传递方式不同

D、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 二、程序阅读题（写出下列程序的运行结果）

程序1. 请写出三次单击命令按钮后，窗体上的显示结果。

Private Sub p()

Static s As Integer

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vb程序设计书习题和参考答案(2)在线全文阅读。