大学计算机VB6.0习题(填空题)

已知哥德巴赫猜想描述为"任何一个大于6的偶数，都可以表示为两个素数之和"，下面程序实现从键盘输入一个大于6的偶数后，在窗体中打印出所有的分解结果，请将程序补充完整。Private Function sushu(ByVal n As Integer) As Boolean

Dim k As Integer

For k = 2 To n - 1

If n Mod k = 0 Then __【1】___

Next k

If __【2】___ Then

sushu = True

Else

sushu = False

End If

End Function

Private Sub Command1_Click()

Dim n As Integer, n1 As Integer, n2 As Integer

n = Val(Text1.Text)

If n < 6 Or n Mod 2 = 1 Then

MsgBox "你输的不是一个大于6的偶数，请重新输入"

Else

For n1 = 2 To n / 2

n2 = n - n1

If sushu(n1) = True And ___【3】__ Then

Print n1; n2

End If

Next n1

End If

End Sub

下面程序采用顺序查找方法在数组中查找从键盘输入的数据，若找到则输出该数据在数组中的位置，否则输出“查找失败”的信息，请将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a As Variant

a = Array(22, 15, 4, 20, 43, 45, 39, 80, 74, 28)

Print "数组所有元素为："

For i = LBound(a) To 10

Print _____【1】____;

Next i

Print

x = Val(InputBox("请输入要查找数据"))

For i = LBound(a) To UBound(a)

If 【2】 Then Exit For

Next i

If 【3】 Then

Print "查找成功，位置为："; i

Else

Print "查找失败！"

End If

End Sub

建立如下界面，其中Option1~Option4分别表示"春夏秋冬"，单击"总价"按钮，根据季节进行打折，最后显示10台空调的总价。折扣规则为：春秋季9折，冬季8折，夏季不打折。请补充代码完整实现上述功能。

Private Sub Command1_Click()

price = 2500

If 【1】 Then

price = price * 0.9

ElseIf Option4.Value = True Then

【2】

End If

MsgBox price * 10

End Sub

设有整形变量s，取值范围为0~100，表示学生的成绩。有如下程序段：

If s>=90 Then

Level="A"

ElseIf s>=75 Then

Level="B"

ElseIf s>=60 Then

Level="C"

Else

Level="D"

End If

下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同。请填空。Select Case s

Case 【1】 >=90

Level="A"

Case 75 To 89

Level="B"

Case 60 To 74

Level="C"

Case 【2】

Level="D"

【3】

下面的程序是在名称为List1的列表框中显示所有的"水仙花数"，所谓"水仙花数"指的是一个3位数，其各位数字立方和等于该数本身。例如，153是一个水仙花数，因为153 = 13 + 53 + 33，请将程序补充完整。

Private Sub Form_Click()

For i = 1 To 9

For j =___【1】__

For k = 0 To 9

n = __【2】___

If n = i ^ 3 + j ^ 3 + k ^ 3 Then

List1.__【3】__ n

End If

Next k

Next j

Next i

下面程序运行时，单击窗体，依次输入数据34，2，66，80，23，70，1，20， 27，则输出结果是max= 【1】 ____，row=____【2】______，col=_______【3】______。Option Base 1

Private Sub Form_Click()

Dim a%(3, 3), i%, j%, max%, col%, row%

For i = 1 To 3

For j = 1 To 3

a(i, j) = Val(InputBox("请输入"))

Next j

Next i

max = a(1, 1): row = 1: col = 1

For i = 1 To 3

For j = 1 To 3

If max < a(i, j) Then

max = a(i, j): row = i: col = j

End If

Next j

Next i

Print max; row; col

以下程序的功能是: 用Array函数建立一个含有10个元素的数组,然后对该数组中的元素从小到大进行排序，最后在窗体上显示出排序后的数组。请填空。

option base 1

Private Sub Command1_Click()

Dim a As Variant

a = Array(54, 96, -178, 89, 5, 12, 100, 59, 64, 513)

n = ________【1】________

For i = 1 To n - 1

For j = n To i + 1 Step -1

If a(j) < ___【2】_______ Then

t = a(j)

______【3】_____________

a(j - 1) = t

End If

Next j

Next i

For i = 1 To n

Print a(i);

Next i

下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。

例如：输入7685，则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。

Private Sub Command1_Click()

Dim x As Integer

x=InputBox("请输入一个正整数")

While x>10

Print x Mod 10;

x=___【1】___

wend

print ___【2】___

End Sub

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

Private Sub Form_Click()

Dim whole$

Open "d:\test\smtext1.txt" For Input As #1

Do While Not _【1】___

Line Input #1, aspect$

whole = whole + aspect$ + Chr$(13) + Chr$(10)

Loop

Text1.Text = whole

Close #1

Open "d:\test\smtext2.txt" For Output As #1

Print #1, _【2】__

Close #1

End Sub

上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

下面程序运行时，单击窗体，依次输入数据34，2，66，80，23，70，1，20， 27，则输出结果是max= 【1】 ____，row=____【2】______，col=_______【3】______。Option Base 1

Private Sub Form_Click()

Dim a%(3, 3), i%, j%, max%, col%, row%

For i = 1 To 3

For j = 1 To 3

a(i, j) = Val(InputBox("请输入"))

Next j

Next i

max = a(1, 1): row = 1: col = 1

For i = 1 To 3

For j = 1 To 3

If max < a(i, j) Then

max = a(i, j): row = i: col = j

End If

Next j

Next i

Print max; row; col

End Sub

下面程序采用选择法排序，实现对数组元素进行升序排列，请将程序补充完整。

option base 1

Dim a As Variant

a = Array(56, 90, -123, 58, 5, 10, 100, 53, 66, 518)

n = UBound(a)

'排序

For i = 1 To n - 1

imin =______【1】______

For j = i + 1 To n

If a(imin) > a(j) Then _______【2】_______

Next j

If (i <> j) Then

t = a(i)

____【3】_____

a(imin) = t

End If

Next i

'排序后数据输出

For i = 1 To n

Print a(i);

Next i

以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

T ext1.Text = ""

Open "\smtext1.txt" ___【1】__ As #1

Do While __【2】__

Input #1, inData

Text1.T ext = T ext1.T ext & inData

Loop

Close #1

End Sub

下列程序实现对有序数组折半查询，请将程序补充完整。

Option Base 1

Private Sub Form_Click()

Dim a As Variant, low%, high%, m%, k%, n%,find%

a = Array(500, 376, 320, 240, 200, 154, 56, 37, 20, 8)

n = UBound(a)

find=-1

k = Val(InputBox("输入要查询的关键值"))

low = 1

__________【1】____________

Do While low <= high and find=-1

m=int(_______【2】_____________)

If k = a(m) Then

find=1

print k; "是数组第" & m & "个数据"

Exit Do

ElseIf k < a(m) Then

_______【3】__________

Else

high = m - 1

End If

Loop

If __________【4】__________________ Then

Print k; "不在数组中"

End If

下列程序实现对有序数组折半查询，请将程序补充完整。

Option Base 1

Private Sub Form_Click()

Dim a As Variant, low%, high%, m%, k%, n%,find%

a = Array(500, 376, 320, 240, 200, 154, 56, 37, 20, 8) n = UBound(a)

find=-1

k = Val(InputBox("输入要查询的关键值"))

low = 1

__________【1】____________

Do While low <= high and find=-1

m=int(_______【2】_____________)

If k = a(m) Then

find=1

print k; "是数组第" & m & "个数据"

Exit Do

ElseIf k < a(m) Then

_______【3】__________

Else

high = m - 1

End If

Loop

If __________【4】__________________ Then

Print k; "不在数组中"

End If

End Sub

征兵的条件是：男性18～20岁，1.65米以上；女性16～18岁，1.60米以上。编写程序，从键盘输

入一个人的数据时，判断是否符合征兵的条件。界面如下图，其中单选按钮Option1、Option2分别表示“男”、“女。

程序代码如下：

Private Sub Command1_Click()

age = Val(Text1.Text)

h = Val(Text2.Text)

If 【1】 Then

If age >= 18 And age <= 20 And h >= 1.65 Then

Label4.Caption = "满足男性征兵条件"

Else

Label4.Caption = "不满足男性征兵条件"

End If

Else

If age >= 16 And age <= 18 Then

If h >= 1.6 Then

Label4.Caption = "满足女性征兵条件"

【2】

End If

End If

End Sub

通过随机函数Rnd产生30个[100,900]范围内的随机整数，并将其中所有素数添加在列表框中，请将程序补充完整。

Private Sub Command1_Click()

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

Randomize

For i = 1 To 30

n =int( 【1】+ 100 )

For k = 2 To n - 1

If n Mod k = 0 Then 【2】

Next k

If k = n Then

List1. 【3】n

End If

Next i

End Sub

当用append方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。

在窗体上先画1个名为Text1的文本框和1个名为Label1的标签，再画1个名为Op1的有4个单选按钮的单选按钮数组，其Index属性按季度顺序为0～3（见图1）。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击1个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击"第3季度"单选按钮所产生的结果。请填空。

图1 图2

Dim sales(12) As Long

Private Sub Form_load()

Open "sales.txt" For Input As #1

For k=1 To 12

Input #1,sales(k)

Next k

Close #1

End Sub

Private Sub Op1_Click(Index As Integer)

Dim sum As Long,k As Integer,month As Integer

sum=0

month=Index*__【1】____

For k=1 To 3

month=month+1

sum=sum+sales(month)

Next K

Label1.Caption=Op1(Index)._【2】_____ & "销售总额"

Text1=sum

End Sub

下列程序代码的功能是在窗体上打印数组a中的最小值，请将程序代码补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a As Variant

Dim i As Integer, x As Integer

a = Array(9, 7, 10, 2, 8, 12)

x = ______【1】____

For i = LBound(a) + 1 To UBound(a)

If a(x) > a(i) Then _____【2】________

Next i

Print a(x)

End Sub

以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组（下标Index取值0-6），然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击"计算得分"命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。

Private Sub Command1_Click()

Dim k As Integer

Dim sum As Single, max As Single, min As Single

sum = Text1(0)

max = Text1(0)

min = 【1】

For k = 【2】 To 6

If max < Text1(k) Then

max = Text1(k)

End If

If min > Text1(k) Then

min = Text1(k)

End If

sum = sum + Text1(k)

Next k

Text2 = ( 【3】 )/5

End Sub

顺序文件通过______语句或Write语句把缓冲区的数据写入磁盘。、

下面程序采用冒泡排序，实现对数组元素进行升序排列，请将程序补充完整。Option Base 1

Private Sub Form_Click()

Dim a As Variant

a = Array(23, 64, 42, 5, 77, 5, 80, 48, 34, 30)

n% = ______【1】_________

For i% = 1 To n - 1

For j% = 1 To n - i

If a(j)>a(j+1) Then

t = a(j)

a(j) = a(j + 1)

________【2】

End If

Next j

Next i

Print "排序后的数组为："

For i = 1 To n

Print _____【3】_______;

Next

下列程序的功能是：将数据1，2，…，10写入顺序文件"test3.txt"中，请填空。

Private Sub Form_Click()

Dim i As Integer

Open "test3.txt" __【1】__ As #1

For i = 1 To 10

__【2】__

Next i

Close #1

End Sub

下面程序实现如下分段函数，请补充程序完整。

Dim x!, y!

x = Val(InputBox("输入数据"))

Select Case 【1】

Case 【2】

y = x

Case 500 To 1000

y = 1 - 5 * x

Case Else

y = 3 * x

End Select

对于下面的程序段，程序运行后的输出结果为。

While a < 30

a = (a + 1) * (a + 1)

m = m + 1

Wend

MsgBox m

在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。

Private Sub Option1_Click(Index As Integer)

Select Case ______

Case 0

a="宋体"

Case 1

a="黑体"

Case 2

a="楷体_GB2312"

End Select

Text1.FontName=a

End Sub

下面程序采用顺序查找方法在数组中查找从键盘输入的数据，若找到则输出该数据在数组

中的位置，否则输出“查找失败”的信息，请将程序补充完整。Option Base 1

Private Sub Command1_Click()

Dim a As Variant

a = Array(22, 15, 4, 20, 43, 45, 39, 80, 74, 28)

Print "数组所有元素为："

For i = LBound(a) To 10

Print _____【1】____;

Next i

Print

x = Val(InputBox("请输入要查找数据"))

For i = LBound(a) To UBound(a)

If 【2】 Then Exit For

Next i

If 【3】 Then

Print "查找成功，位置为："; i

Else

Print "查找失败！"

End If

End Sub