VB程序题(程序填空、编程).docx

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

1、第4章 程序设计结构程序填空题（1个空）在以下各题的下划线处填写正确的内容，以实现要求的功能。1下面的语句用于实现：当C字符串变量中第三个字符是“C”时，利用MsgBox显示“Yes”，否则显示“No”。If_Then MsgBox(“yas”) Else MsgBox(“No”) 答案：Mid(c，3，1) = “C”2输入一个数，判断其为偶数还是奇数，并用消息框显示出结果，如“您输入的数2是偶数”。Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click

2、 Dim X As IntegerDim Y As StringX = InputBox(请输入X的值:)_MsgBox(您输入的数 & X & Y)End Sub答案：3.IF X MOD 2=0 THEN Y=是偶数 ELSE Y=是奇数3要求下面代码段中的循环体执行3次。Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.ClickDim x as integerx = 1Do While _ x = x + 2LoopEnd Sub答案：

3、 x7程序填空题（2个空）1、输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或能被400整除。同时应用日期型变量的IsLeepYear函数来验证。 Sub Button4_Click(.) Handles Button4.Click Dim d As Date d=Now If_(_1_)_ Or d.year Mod 400=0 Then MsgBox(d.Year & “是闰年”) Else MsgBox(d.Year & “是平年”) End If If IsLeepYear（_2_） Then MsgBox(d.Year

4、 & “是闰年”) Else MsgBox(d.Year & “是平年”) End IfEnd Sub答案：(1) d.year mod 4=0 and d.year mod 1000 (2) d.year2下列程序用于求S=1+3+32+33+310的值。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As integer,t As integer,i As integer s=_(1)_ For i=1 to 1

5、0 t=_(2)_ s=s+t Next i Lable1.text= s= & sEnd Sub答案：(1) 1 、 (2) 3i3以下程序用来输出25个开区间（10，87）中的随机整数，并且每行打印5个。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim r%,i%Label1.text=For i=1 to 25 r=_(1)_ Label1.text &= r If _(2)_ Then Label1.text &=

6、VbCrLfNext iEnd Sub答案：(1) int(rnd*76+11) 、(2) i mod 5=04搬砖问题：36块砖，36人搬，成人男的搬4块，成人女的搬3块，2个小儿抬1块，要求1次全部搬完，问需要成人男、成人女、小儿各多少人？Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim male%,female%,boy% Label1.text= For male=1 to 9 For female=1 to (1)

7、 For boy=2 to 36 step 2 If boy+female+male=36 and (2) then Label1.text &= male= & male & ,female= & female & ,boy= & boy End If Next boy Next female Next maleEnd Sub答案：(1) 12 、(2) male*4+female*3+boy/2=365计算s=1+3+5+.+99 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventA

8、rgs) Handles Button1.ClickDim i As Integer, sum As Integer Dim i%,s%s = 0 For i = 1 To 100 Step (1) (2) Next Label1.Text = s End Sub 答案：(1) 2 、(2) s=s+i6.输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“ABCDEFG”变换成“GFEDCBA”。Sub Button1_Click(.) Handles Button1.Click Dim a$, I%, c$, d$a=InputBox$(“输入字符串”)d=”For I= (1) T

9、o 1 Step -1c=Mid(a,I,1)d=d & (2) Next IMsgBox(d)End Sub答案：(1) len(a) 、(2) c7找出被3、5、7除，余数为1的最小的5个正整数。 Sub Button1_Click(.) Handles Button1.Click Dim CountN% , n%CountN=0n=1Don=n+1If_(1)_ Then MsgBox(n) countN=CountN+1End IfLoop_(2)_End Sub 答案：(1) n mod 3=1 and n mod 5=1 and n mod 7=1 、 (2) while coun

10、tn5 8.有个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。提示：利用其是7的倍数这个条件，然后根据同时满足除n余m（n=2，3，4，5，6；m=1，2，3，4，5）的逻辑关系即可。Sub Button1_Click(.) Handles Button1.Click Dim n%, m% For n=7 To 10000 Step 7 If n Mod 2=1 And _(1)_ Then MsgBox(n)_(2)_End If NextEnd

11、 Sub答案： (1) n mod 3=2 and n mod 4=3 and n mod 5 =4 and n mod 6 =5 、 (2) exit for程序填空题（3个空）1、下面的程序段根据输入的整数X的值，给出相应的提示，要求如下：当 x 100时 显示X100当 100 = x 500时 显示x500Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.ClickDim x%，Y$x = InputBox(请输入x的值:) Select Case xC

12、ase Is 500 End SelectMsgBox(Y)End Sub答案：(1) Y = X 0 Then MsgBox(左括号多于右括号 & count1 & 个) Else MsgBox(右括号多于左括号 & count1 & 个) End If Exit Sub End IfEnd Sub答案：(1) e.KeyChar 、 (2) count1 - 1 、 (3) count1 = 03以下程序产生20个随机的1099之间的整数，找出其中的奇数，并将其以每行4个数显示在标签中。Private Sub Button1_Click(ByVal sender As System.Obj

13、ect,ByVal e As System.EventArgs) Handles Button1.ClickDim i%,x%,k%Label1.text=Randomize()For i = 1 To 20 x = Int(Rnd ()*_(1)_)If _(2)_ThenLabel1.text &= x & k = k + 1 If _(3)_ Then Label1.text &= x & VbCrLf End If End IfNext iEnd Sub答案：(1) 90+10 、 (2) x mod 2=1 、(3) k mod 4=0程序填空题（4个空）1输入若干个英文字母，统计有

14、多少个元音字母，有多少个其他字母，直到按Enter键结束，显示结果，字母大、小写不区分。其中Count Y中放元音字母个数，Count C中放其他字母个数。 Dim CountY% , CountC%Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim c As Charc=_(1)_If “A”=c And c20)y=1/2+|x| (x10) y=Sqrt(3x)-2 (10

15、= x 20 、 (2) x 20 、 (4) IS z and math.abs(x-y)y and math.abs(x-z)x and math.abs(y-z)x （2）x=y and x=z （3）x=y and xz or x=z and yz or y=z and xy （4）Msg(“是任意三角形”)4.某班在一周中6天内考三门分别为x、y、z的课程，规定一天只能考一门，先考x，后考y，最后考z，最后一门最早周五考。用计算机排考试时间，列出满足条件的方案数。 Sub Button1_Click(.) Handles Button1.Click Dim x%, y%, z%, n

16、% n=0Label1.Text= “”For x=1 To 4 For y=_（1）_To 5 For z=5 To 6 If_（2）_ And yz ThenLabel1.Text &=x & space(9) & y & Space(9) & z & vbCrlf _（3）_End If Next Next Next _（4）_ “满足条件的方案为；” & nEnd Sub答案：（1） 2 、（2） xy 、（3） n=n+1 、（4） Label1.Text &=程序填空题（5个空）1.某次大奖赛，有7个评委打分，以下程序是针对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最

17、低分，求出平均分，为该参赛者的得分。 Sub Button1_Click(.) Handles Button1.Click Dim mark!,aver!,max1!,min1!aver=0For i=1 To 7mark=InputBox(“输入第”& i & “位评委的打分”) If i=1 Then max1=mark:_（1）_ ElseIf markmax1 Then _（3）_End IfEnd If _（4）_ Next i aver=_（5）_ MsgBox(aver)End Sub答案：（1） min1=mark、（2）min1=mark 、（3）max=mark 、 （4）

18、aver +=mark 、 （5）(aver-min1-max1)/5第5章 枚举数组结构程序填空题（2个空）1以下程序代码实现110之间任意数的阶乘。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s%, x%,n% n=inputbox(请输入一个110之间的任意整数)x = 1 s = （1） While x =n s = （2） x = x + 1 End While Label1.Text = sEnd Sub

19、答案：（1）1 、 （2） s*x2已知数组arr中包含10个元素，并已按升序排列，现任意输入一个数插入到该数组中，插入后数组中的元素仍按升序排列。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim arr() As Integer = 8, 16, 22, 35, 45, 51, 63, 76, 84, 90 Dim n%, i% Label1.Text = （1） 重新指明数组大小，并保留原来的值 n = Val(Inp

20、utBox(请输入一个数) For i = 9 To 0 Step -1 If （2） Then arr(i + 1) = n : Exit For arr(i + 1) = arr(i) Next iIf n arr(i)程序填空题（3个空） 1. 下面程序对已知数组a（），删除数组中某个元素。 Sub Button1_Click(. .) Handles Button1.ClickDim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j%Key=Val(InputBox(“输入要删除的值”)For i=0 To UBound(a) If_（1

21、）_ ThenFor j=i+1 To UBound(a)_（2）_Next jReDim _（3）_MsgBox(“删除完成”)Exit Sub End IfNext iMsgBox(“找不到要删除的元素”)End Sub答案：（1）Key = a(i) 、 （2） a(j - 1) = a(j) 、 （3） Preserve a(UBound(a) - 1)2.矩阵相乘两个矩阵能相乘的必要条件是：前一个矩阵的列数等于后一个矩阵的行数。矩阵A乘矩阵B，得矩阵C。方法是A的第一行元素分别对应乘以B的第一列元素各元素，相加得C11，A的第一行元素对应乘以B的第二列各元素，相加得C12，以此类推，

22、C的第二行元素为A的第二行元素按上面方法与B各列相乘所得结果，以此类推。例如，已知A为nk的矩阵，B为km的矩阵，AB的结果C矩阵为nm，即：Sub Button1_Click(.) Handles Button1.Click Dim a%(2,3),b%(3,2),c%(2,2),i%, j%, n%, k%Label1.Text=“”n=5For i=1 To 2For j=1 To 3 a(i,j)=n_（1）_n=_（2）_Next jNext iFor i=1 To 2For j=1 To 2c(i,j)=0For k=1 To 3c(i,j)=c(i,j)+_（3）_ Next k

23、Label1.Text &=c(i,j) & “ ”Next jLabel1.Text &=vbCrLfNext iEnd Sub答案： （1）b(j, i) = n 、 （2） n + 5 、 （3） a(j, k) * b(k, i)程序填空题（4个空）1以下程序代码实现单击命令按钮时输出一个主对角线上元素值为1、其余元素为0的99方阵。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(9, 9) As Integ

24、er, i%, j% Label1.Text = For i = 1 To 9 For j = 1 To 9 If i = j Then （1） Else （2） End If Next j Next i For i = 1 To 6 For j = 1 To 6 Label1.Text &= （3） & Next j Label1.Text &= （4） Next iEnd Sub答案：（1）a(i, j) = 1 、（2） a(i, j) = 0 、 （3） a(i, j) 、 （4） vbCrLf2. 在一维数组中利用移位的方法显示如图2-1所示的结果。Sub Button1_Click

25、(.) Handles Button1.Click Dim a(7) As Integer, i%, t%, j%图2-1 数组循环右移Label1.Text= “” For i=1 To 7a(i)=iLabel1.Text &=a(i) & “ ” Next iLabel1.Text &=vbCrLfFor i=1 To 7t=_（1）_For j=6 To 1 Step -1 _（2）_Next ja(1)=_（3）_For j=1 To 7Label1.Text &=a(j) & “ ”Next jLabel1.Text &=_（4）_Next iEnd Sub答案：（1）t = a(

26、7) 、 （2） a(j + 1) = a(j) 、 （3） t 、 （4） vbCrLf3. 改进的冒泡法排序。在教材中已介绍选择法、冒泡法。本例使用改进的冒泡法排序，冒泡法排序在每一轮排序时将相邻的两个数比较，当次序不对就交换位置，出了内循环，最大数已沉底，小数上浮；每一轮仅使沉底的数确定了位置，有个n个数，外循环要进行n-1轮排序。为了提高效率，若在某一轮排序时，未发生排序位置交换，说明欲排序的序列已有序，排序就可以结束。在程序中增加一个逻辑变量来进行判断即可。程序如下：Sub Button1_Click(. .) Handles Button1.ClickDim Tag As Bool

27、ean ,n%, j%, i%, t%Dim a( ) As Integer=1,5,6,7,4,13,23,26,31,51n=UBound(a)For i=0 To n-1 Tag=FalseFor j=0 To n-1-iIf a(j)a(j+1) Then_（1）_（2）_（3）_a(j+1)=tEnd If Next jIf Not Tag Then _（4）_Next iFor i=0 To UBound(a)Label1.Text &=a(i) & “ ”Next iEnd Sub答案：（1）Tag = False 、（2） t = a(j) 、 （3） a(j) = a(j +

28、 1) 、 （4） Exit For程序填空题（5个空）1.随机产生15个不重复的A-Z之间的字母（包括A，Z的大写字母），存放在字符数组中。实现的思想是，每产生一个字母，在数组中查找已产生的字母。若找到，刚产生的字母作废，重新产生；如果找不到，则产生字母放入数组中。Sub Button1_Click(.) Handles Button1.ClickDim s(14) As Char ,c As Char, n%, j% Label1.Text = s(0) = Chr(Int(Rnd() * 26 + 65) For n = 1 To 14 c = （1） For j = 0 To （2）

29、若找到有重复字母,重新产生 If s(j) = c Then （3） Next j If j = 15 Then s(n) = （4） Else n = （5） 没有重复的加入数组中 Next n For j = 0 To 14 Label1.Text &= s(j) & Next jEnd Sub答案：（1）Chr(Int(Rnd() * 26 + 65) 、 （2） 14 、 （3） Exit For （4） c 、 （5） n-12输出大小可变的正方形图案，如图2-3所示，最外圈是第一层，要求每层上用的数字与层数相同。提示 从最外层开始往里层填充数，里面层覆盖外面已填过的数据，当I=1时

30、，填9*9个1，当I=2，填7*7个2, 。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a( , ) As Integer, N as Integer Dim I As Integer, J As Integer, k% Label1.Text = N = InputBox(输入N:) 本例n=9 （1） For I = （2） 每一层图案上要显示的数字 For J = I To N - I + 1 从外到里将数组中

31、元素存放对应的数字 For k = I To N - I + 1图2-3 数字填充的方形图案 （3） Next k Next J Next I For I = 1 To N For J = 1 To N Label1.Text &= （4） Next J Label1.Text &= （5） Next I End Sub答案：（1）ReDim a(N, N) 、 （2） 1 To N 、 （3） a(J, k) = I （4） a(I, J) & （5） vbCrLf程序填空题（6个空）1.随机产生15个A-J的大写字母，按字母降序排序后，将连续出现的字母用压缩的形式显示。例如，连续5个H字母显示为5*H，如图2-2所示。数组a（）用于存储随机产生字母。 Sub Button1_Click(.)Handles.Click Const N = 14 Dim a(N) As Char, c As Char Dim count%, i%, k%, j%