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

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

Private Function sushu(ByVal n As Integer) As BooleanDim k As IntegerFor k = 2 To n - 1If n Mod k = 0 Then __【1】___Next kIf __【2】___ Thensushu = TrueElsesushu = FalseEnd IfEnd FunctionPrivate Sub Command1_Click()Dim n As Integer, n1 As Integer, n2 As Integern = Val(Text1.Text)If n < 6 Or n Mod 2 = 1 ThenMsgBox "你输的不是一个大于6的偶数，请重新输入"ElseFor n1 = 2 To n / 2n2 = n - n1If sushu(n1) = True And ___【3】__ ThenPrint n1; n2End IfNext n1End IfEnd Sub下面程序采用顺序查找方法在数组中查找从键盘输入的数据，若找到则输出该数据在数组中的位置，否则输出“查找失败”的信息，请将程序补充完整。

Option Base 1Private Sub Command1_Click()Dim a As Varianta = Array(22, 15, 4, 20, 43, 45, 39, 80, 74, 28)Print "数组所有元素为："For i = LBound(a) To 10Print _____【1】____;Next iPrintx = Val(InputBox("请输入要查找数据"))For i = LBound(a) To UBound(a)If 【2】 Then Exit ForNext iIf 【3】 ThenPrint "查找成功，位置为："; iElsePrint "查找失败！"End IfEnd Sub建立如下界面，其中Option1~Option4分别表示"春夏秋冬"，单击"总价"按钮，根据季节进行打折，最后显示10台空调的总价。

折扣规则为：春秋季9折，冬季8折，夏季不打折。

请补充代码完整实现上述功能。

Private Sub Command1_Click()price = 2500If 【1】 Thenprice = price * 0.9ElseIf Option4.Value = True Then【2】End IfMsgBox price * 10End Sub设有整形变量s，取值范围为0~100，表示学生的成绩。

有如下程序段：If s>=90 ThenLevel="A"ElseIf s>=75 ThenLevel="B"ElseIf s>=60 ThenLevel="C"ElseLevel="D"End If下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同。

请填空。

Select Case sCase 【1】 >=90Level="A"Case 75 To 89Level="B"Case 60 To 74Level="C"Case 【2】Level="D"【3】下面的程序是在名称为List1的列表框中显示所有的"水仙花数"，所谓"水仙花数"指的是一个3位数，其各位数字立方和等于该数本身。

例如，153是一个水仙花数，因为153 = 13 + 53 + 33，请将程序补充完整。

Private Sub Form_Click()For i = 1 To 9For j =___【1】__For k = 0 To 9n = __【2】___If n = i ^ 3 + j ^ 3 + k ^ 3 ThenList1.__【3】__ nEnd IfNext kNext jNext i下面程序运行时，单击窗体，依次输入数据34，2，66，80，23，70，1，20， 27，则输出结果是max= 【1】 ____，row=____【2】______，col=_______【3】______。

Option Base 1Private Sub Form_Click()Dim a%(3, 3), i%, j%, max%, col%, row%For i = 1 To 3For j = 1 To 3a(i, j) = Val(InputBox("请输入"))Next jNext imax = a(1, 1): row = 1: col = 1For i = 1 To 3For j = 1 To 3If max < a(i, j) Thenmax = a(i, j): row = i: col = jEnd IfNext jNext iPrint max; row; col以下程序的功能是: 用Array函数建立一个含有10个元素的数组,然后对该数组中的元素从小到大进行排序，最后在窗体上显示出排序后的数组。

请填空。

option base 1Private Sub Command1_Click()Dim a As Varianta = Array(54, 96, -178, 89, 5, 12, 100, 59, 64, 513)n = ________【1】________For i = 1 To n - 1For j = n To i + 1 Step -1If a(j) < ___【2】_______ Thent = a(j)______【3】_____________a(j - 1) = tEnd IfNext jNext iFor i = 1 To nPrint a(i);Next i下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。

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

请填空。

Private Sub Command1_Click()Dim x As Integerx=InputBox("请输入一个正整数")While x>10Print x Mod 10;x=___【1】___wendprint ___【2】___End Sub在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click()Dim whole$Open "d:\test\smtext1.txt" For Input As #1Do While Not _【1】___Line Input #1, aspect$whole = whole + aspect$ + Chr$(13) + Chr$(10)LoopText1.Text = wholeClose #1Open "d:\test\smtext2.txt" For Output As #1Print #1, _【2】__Close #1End Sub上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。

请填空。

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

Option Base 1Private Sub Form_Click()Dim a%(3, 3), i%, j%, max%, col%, row%For i = 1 To 3For j = 1 To 3a(i, j) = Val(InputBox("请输入"))Next jNext imax = a(1, 1): row = 1: col = 1For i = 1 To 3For j = 1 To 3If max < a(i, j) Thenmax = a(i, j): row = i: col = jEnd IfNext jNext iPrint max; row; colEnd Sub下面程序采用选择法排序，实现对数组元素进行升序排列，请将程序补充完整。

option base 1Dim a As Varianta = Array(56, 90, -123, 58, 5, 10, 100, 53, 66, 518)n = UBound(a)'排序For i = 1 To n - 1imin =______【1】______For j = i + 1 To nIf a(imin) > a(j) Then _______【2】_______Next jIf (i <> j) Thent = a(i)____【3】_____a(imin) = tEnd IfNext i'排序后数据输出For i = 1 To nPrint a(i);Next i以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。

请填空。

Private Sub Command1_Click()Dim inData As StringT ext1.Text = ""Open "\smtext1.txt" ___【1】__ As #1Do While __【2】__Input #1, inDataText1.T ext = T ext1.T ext & inDataLoopClose #1End Sub下列程序实现对有序数组折半查询，请将程序补充完整。

Option Base 1Private 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=-1k = Val(InputBox("输入要查询的关键值"))low = 1__________【1】____________Do While low <= high and find=-1m=int(_______【2】_____________)If k = a(m) Thenfind=1print k; "是数组第" & m & "个数据"Exit DoElseIf k < a(m) Then_______【3】__________Elsehigh = m - 1End IfLoopIf __________【4】__________________ ThenPrint k; "不在数组中"End If下列程序实现对有序数组折半查询，请将程序补充完整。