VB程序填空题(12页).doc

《VB程序填空题(12页).doc》由会员分享，可在线阅读，更多相关《VB程序填空题(12页).doc（12页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-VB程序填空题-第 12 页1、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。程序中有三处错误，请更正。程序如下：Private Sub Command1_Click() Dim a As Single Dim py As String a=Val(Text1) If a0 Then py=正数 If a=0 Then py=零 If a= a(i) Then List1.AddItem Str(a(i) _ End If i = i + 1LoopEnd Sub12、有一个单击按纽过程，其作用是产生50个60100的随机数，统计其中被6整除余2的个

2、数，并将这些数输出。请补充下面的程序：Private Sub command1_click() Dim X, N As Integer Dim counter As Integer counter 用来保存能被6整除余2的数据的个数 Randomize Timer 随机数初始化，以时钟为随机数种子 For N = 1 To 50 X = _+ int(Rnd * 40) 随机产生50个60100的随机数 If X Mod 6 = 2 Then List1.AddItem Str(X) _ End If Next NPrint counterEnd Sub13、下面是一个检测密码的程序（界面如图

3、74，其功能是：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统”；否则显示“密码错误！请重新输入密码：”。正确的密码是0123456789。 仔细阅读程序，请问程序中划线处的语句应为_。Private Sub Form_Load() Text1.Text = : Text1.MaxLength = 10 Text1.PasswordChar = * 表示密码用*显示 Label2.Caption = : Label2.Alignment = 2End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Label2.Caption =

4、If KeyAscii = 13 Then KeyAscii=13表示是回车键 If _ Then Label2.Caption = 欢迎您使用本系统! Else Label2.Caption = _ 以下两语句的作用是使程序能自动选中错误的密码，使用户可直接重新输入 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End If End Sub14、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早晨又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天

5、早上再想吃时，见只剩一个桃子了。问：第一天猴子共摘了多少个桃子。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。Visual Basic 程序如下： Sub Command1_Click( ) Dim i, s As Integer _ For i=1 to 9 _ Next i Text1.Text = Str(s)End Sub15、下面程序（界面如图7-3）的功能是：将0到255之间的十进制整数转换为二进制整数的表示形式。在如图中上面的文本框（Text1）中输入一个0到255之间的十进制整数，单击“转换”按钮，该十进制整数的二进制形式会显示在下面的文本

6、框（Text2）中。为了实现这一目标，程序中划线处的语句应为_.Private Sub Command1_Click()Dim a As IntegerDim s As StringDim i As IntegerDim c(1 To 8) As Integera =val( Text1.Text)If a 255 Then Text2.Text = 输入数据错误，请重新输入！Else For i = 1 To 8 c(i) = a Mod 2 a = _ s = Str(c(i) + s Next i Text2.Text = sEnd IfEnd Sub16、个位数字是6，且能被3整除的3

7、位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：Sub Command1_Click()Dim i As Integer, n As Integerm = 106n = _Do While m n；(2) m除以n得余数r；(3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；(4) mn，nr，再重复执行(2)。例如: 求 m=14 ,n=6 的最大公约数. m n r14 6 26 2 0请根据以上思路补充下面的程序代码：Private Sub Command1_Click()m = InputB

8、ox(m=)n = InputBox(n=)If m n Then t = m: m = n: n = tr = _Do While (r 0)m = nn = rr = m Mod nLoopPrint 最大公约数=, nEnd Sub18、以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并输出 最高分数和最低分数，当输入负数时结束输入，输出结果，请将程序补充完 整。 Private Sub Form_Click() Dim x, amax, amin As Single x = InputBox(Enter a score) amax = x amin = x Do While _

9、 If x amax Then amax = x End If If _ Then amin = x End If x = InputBox(Enter a score) Loop Labe1.Text= amax Label2.Text=_ End Sub 19、从键盘键入一个整数x，将x插入到一列有序数据：5，3，4，12，20，45，70中，并使数据序列仍保持有序，试求出x应插入的位置。为了实现这一目标，请参照右边的流程图，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。Dim a(1 To 8) As IntegerDim n, i, j, x As IntegerP

10、rivate Sub Command1_Click()x = Val(Text2.Text)If x a(n) Then_Elsei = 1Do While x a(i)_LoopEnd IfText3.Text = Str(i)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenn = n + 1a(n) = Val(Text1.Text)List1.AddItem Str(a(n)Text1.Text = : Text1.SetFocusEnd IfEnd Sub20、输入100个数，统计其中

11、负数、零及正数的个数。 Private Sub Form_Click() Dim i , fs, zs, ns As Integer fs, ns, zs分别代表负数、零及正数的个数 Dim k As Double For i = 1 To 100 k = Val(InputBox(输入一个数据) If k 0 Then _ ElseIf k ji，可以避免重复寻找 sum = 0 For i = 1 To 100 For j = 1 To 100 For k = j To 100 If _ Then List1.AddItem (Str(i) + Str(j) + Str(k) sum =

12、sum + 1 统计个数 End If Next k Next j Next i Label1.Caption = 组数： + Str(sum)End Sub23、随机产生10个1100之间的正整数，按从小到大的次序排序并输出。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计：Sub Command1_Click()Const n = 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

13、 iFor i = 1 To n - 1 For j = i + 1 To n If _ Then k = a(i): a(i) = a(j): a(j) = k End IfNext jNext iFor i = 1 To 10 List1.AddItem Str(a(i)Next iEnd Sub24、有30个人，其中有男人、女人和小孩。他们在一家饭馆里花去500元。已知，每个男人花30元，每个女人花20元，每个小孩花10元。问：男人、女人、小孩各为多少人。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。Private Sub Command1_Clic

14、k()Dim man As Integer, woman As Integer, child As IntegerFor man = 1 To 15 For woman = 1 To 23 child = _ s = 30 * man + 20 * woman + 10 * child If _ Then List1.AddItem Str(man) + + Str(woman) + + Str(child) End If Next woman Next manEnd Sub25、在我国古代孙子算经中曾经提出这样一个问题。原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数

15、之，剩二；问物几何？”试用枚举法来解决这一问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2，程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整：Private Sub Command1_Click() Dim sum As Integer sum用来统计符合条件的自然数个数 Dim n, max As Integer List1.Clear sum = 0 max = _ 指定查找范围的最大自然数，在text1框中输入 n = 0 Do While n = max n = n

16、 + 1 从自然数1开始不断往上寻找 If _ Then List1.AddItem Str(n) 找到后在list1中显示结果 _ End If Loop List1.AddItem (共计 + Str(sum) + 个) End Sub26、下面程序若用于计算s=1!+2!+3!+4!+5!+6!7!+8!+9!+10!，则程序中划线处的语句应为_ 。 s = 0: t = 1For i = 1 To 10 _ s = s + tNext i27、用VB编写一个计算S11/3!+1/5!1/7!+（1）n-1/（2n1）！ 的程序，程序代码如下，请补充完整： Private Sub Com

17、mand1_Click() Dim i, n As Integer Dim j, s As Double j = 1 s = 1 n = Val(Text1.Text) For i = 2 To n j = _ 计算1/(2*i-1)! s = _ 累加通项式 Next i Text2.Text = Str(s) 结果显示到文本框text2中End Sub28、设有n盏灯，放在一排，从1n依次顺序编号。有n个人也从1到n依次编号。第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如为打开的，则将它关闭，如关闭的则将它打开），

18、以后的人都和3号一样，将凡是自己号数倍数的灯做相反处理。试计算，当n个人操作后，哪几盏灯是亮的。（提示：亮灯为0，关闭为1）为了实现这一目标，完善下面的VB程序。根据右面的流程图，在划线处填入合适的语句或表达式，完成程序设计。Private Sub Command1_Click()Const n = 20Dim i, j As IntegerDim a(1 To n) As IntegerFor i = 1 To na(i) = 0Next iFor i = 1 To nFor j = 1 To nIf j Mod i = 0 Then_End IfNext jNext iFor i = 1 To nIf _ Then List1.AddItem Str(i)Next iEnd Sub