《VB程序填空题.docx》由会员分享，可在线阅读，更多相关《VB程序填空题.docx（10页珍藏版）》请在三一文库上搜索。
1、1、以下程序的功能是从键盘上任意输入一个数,判断这个数是正数、负数、还是零,并输出判 断结果.程序中有三处错误,请更正.程序如下：Private Sub Command1_Click()Dim a As SingleDim py As Stringa=Val(Text1)If a0 Then py=正数If a=0 Then py=零If a= a(i) ThenStr(a(i)End Ifi = i + 1LoopEnd Sub12、有一个单击按纽过程,其作用是产生 50个60100的随机数,统计其中被6整除余2的个数,并将这些数输出.请补充下面的程序：Private Sub command
2、1_click()Dim X, N As IntegerDim counter As Integer counter用来保存能被 6整除余2的数据的个数Randomize Timer 随机数初始化,以时钟为随机数种子For N = 1 To 50X =+ int(Rnd * 40)随机产生 50个60100的随机数If X Mod 6 = 2 ThenStr(X)End IfNext NPrint counterEnd Sub13、下面是一个检测密码的程序(界面如图 7 4,其功能是：当用户输入的密码正确时,在窗 体上显示“欢送您使用本系统；否那么显示“密码错误！请重新输入密码：.正确的密码是
3、09仔细阅读程序,请问程序中划线处的语句应为Private Sub Form_Load()=:=10表示密码用*显示End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) =If KeyAscii = 13 Then KeyAscii=13表示是回车键If Then=欢送您使用本系统！Else以下两语句的作用是使程序能自动选中错误的密码,使用户可直接重新输入=0= LenEnd IfEnd IfEnd Sub14、猴子吃桃问题.猴子第一天摘下假设干个桃子,当即吃了一半,还不过瘾,又多吃了一个.第二天早晨又将剩下的桃子吃了一半,又多吃了一个.
4、以后每天早上都吃了前一天剩下的一半零一个.到第十天早上再想吃时,见只剩一个桃子了.问：第一天猴子共摘了多少个桃子.为了实现这一目标,完善下面的VB程序,在划线处填入适宜的语句或表达式,完成程序设计.Visual Basic程序如下：Sub Command1_Click( )Dim i, s As IntegerFor i=1 to 9Next i= Str(s) End Sub15、下面程序(界面如图 7-3)的功能是：将0到255之间的十进制整数转换为二进制整数的表 示形式.在如图中上面的文本框( Text1 )中输入一个0到255之间的十进制整数,单击“转换 按钮,该十进制整数的二进制形式
5、会显示在下面的文本框( Text2)中.为了实现这一目标,程 序中划线处的语句应为 .Private Sub Command1_Click()Dim a As IntegerDim s As StringDim i As IntegerDim c(1 To 8) As Integer a =val(If a 255 Then=输入数据错误,请重新输入！ElseFor i = 1 To 8c(i) = a Mod 2a =s = Str(c(i) + sNext i =sEnd IfEnd Sub16、个位数字是6,且能被3整除的3位数共有多少个下面程序用于解决这一问题,在划线处填 入适宜的语句
6、或表达式,设共有 n个这样的数,Visual Basic程序如下：Sub Command1_Click()Dim i As Integer, n As Integer m = 106 n =Do While m n；m除以n得余数r ； 假设r=0,那么n为求得的最大公约数,算法结束；否那么执行 (4)； m - n , n r ,再重复执行(2).例如：求m=14 ,n=6 的最大公约数.m n r14 6 26 2 0 请根据以上思路补充下面的程序代码：Private Sub Command1_Click() m = InputBox(m=) n = InputBox(n=)If m n
7、Then t = m: m = n: n = t r =Do While (r 0) m = n n = rr = m Mod nLoopPrint 最大公约数=,nEnd Sub18、以下程序的功能是：从键盘上输入假设干个学生的测试分数,统计并输出 最高分数和最低分数,当输入负数时结束输入,输出结果,请将程序补充完 整.Private Sub Form_Click()Dim x, amax, amin As Single x = InputBox(Enter a score) amax = x amin = xDo While If x amax Then amax = x End If I
8、f Thenamin = x End Ifx = InputBox(Enter a score) Loop =amaxEnd Sub19、从键盘键入一个整数x,将x插入到一列有序数据：5, 3, 4, 12, 20, 45, 70中,并使数据序列仍保持有序,试求出 x应插入的位置.为了实现这一目标,请参照右边的流程图,完善下面的VB程序,在划线处填入适宜的语句或表达式,完成程序设计.Dim a(1 To 8) As IntegerDim n, i, j, x As IntegerPrivate Sub Command1_Click() x = ValIf x a(n) ThenElsei =
9、1Do While x a(i)LoopEnd If=Str(i)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then n = n + 1 a(n) = Val Str(a(n) =:End IfEnd Sub20、输入100个数,统计其中负数、零及正数的个数.Private Sub Form_Click()Dim i , fs, zs, ns As Integer fs, ns, zs分别代表负数、零及正数的个数Dim k As DoubleFor i = 1 To 100k = Val(Inp
10、utBox(输入一个数据)If k 0 ThenElseIf k ji ,可以防止重复寻找sum = 0For i = 1 To 100For j = 1 To 100For k = j To 100If Then(Str(i) + Str(j) + Str(k)sum = sum + 1 统计个数End IfNext kNext jNext i= 组数：+ Str(sum)End Sub23、随机产生10个1100之间的正整数,按从小到大的次序排序并输出.为了实现这一目标,完善下面的VB程序,在划线处填入适宜的语句或表达式,完成程序设计：Sub Command1_Click()Const n
11、 = 10Dim i As Integer, j As Integer, t As IntegerDim a(1 To 100) As IntegerFor i = 1 To 10a(i) = 100 * Rnd(1) + iNext iFor i = 1 To n - 1For j = i + 1 To nIf Thenk = a(i): a(i) = a(j): a(j) = kEnd IfNext jNext iFor i = 1 To 10Str(a(i)Next iEnd Sub24、有30个人,其中有男人、女人和小孩.他们在一家饭馆里花去500元.,每个男人花30元,每个女人花 2
12、0元,每个小孩花10元.问：男人、女人、小孩各为多少人.为了实现这 一目标,完善下面的VB程序,在划线处填入适宜的语句或表达式,完成程序设计.Private Sub Command1_Click()Dim man As Integer, woman As Integer, child As IntegerFor man = 1 To 15For woman = 1 To 23 child = s = 30 * man + 20 * woman + 10 * childIf ThenStr(man) + + Str(woman) + + Str(child)End IfNext womanNex
13、t manEnd Sub25、在我国古代?孙子算经?中曾经提出这样一个问题.原文是这样的：“今有物,不知其数,三三数之,剩二；五五数之,剩三；七七数之,剩二；问物几何试用枚举法来解决这一问题.现分析如下,所寻找之数为满足如下条件的自然数：以 3除余2,以5除余3,以7除余2,程序将从自然数1开始依次寻找,逐一判断某一自然数是否满足全部条件,直至在指定范围内找到满足条件的所有自然数.程序代码如下,请补充完整：Private Sub Command1_Click()Dim sum As Integer sum用来统计符合条件的自然数个数Dim n, max As Integersum = 0max
14、 = 指定查找范围的最大自然数,在 text1框中输入n = 0Do While n = maxn = n + 1 从自然数1开始不断往上寻找If ThenStr(n)找到后在list1中显示结果End IfLoop( 共计+ Str(sum) + 个)End Sub26、下面程序假设用于计算s=1!+2!+3!+4!+5!+6!+ 7!+8!+9!+10!,那么程序中划线处的语句应为s = 0： t = 1For i = 1 To 10s = s + tNext i27、用VB编写一个计算 S=11/3!+1/5!- 1/7!+ ( 1)/ (2n-1) !的程序,程序代码如下,请补充完整：
15、Private Sub Command1_Click()Dim i, n As Integer Dim j, s As Double j = 1 s = 1 n = ValFor i = 2 To nj = 计算 1/(2*i-1)!s = 累加通项式Next i=Str(s)结果显示到文本框 text2中End Sub28、设有n盏灯,放在一排,从 1n依次顺序编号.有 n个人也从1到n依次编号.第1个人 (1号)将灯全部关闭,第 2个人(2号)将但凡2的倍数的灯翻开,第 3个人(3号)将但凡3的倍数的灯做相反处理(该灯如为翻开的,那么将它关闭,如关闭的那么将它翻开),以后的人都和3号一样,
16、将但凡自己号数倍数的灯做相反处理.试计算,当 n个人操作后, 哪几盏灯是亮的.(提示：亮灯为 0,关闭为1)为了实现这一目标,完善下面的VB程序.根据右面的流程图,在划线处填入适宜的语句或表达式,完成程序设计.Private Sub Command1_Click()Const n = 20Dim i, j As IntegerDim a(1 To n) As IntegerFor i = 1 To n a(i) = 0Next iFor i = 1 To nForj = 1 To nIf j Mod i = 0 ThenEnd IfNext jNext iFor i = 1 To nIf Then Str(i)Next iEnd Sub