1、大学vb复习资料2四、阅读程序写结果1、下列程序的输入值为15时，其运行结果为( )。Dim a as integerA = InputBox(请输入a的值)Select case A Case 1 to 4 Print D Case 5 to 10 Print C Case IS=15 Print B Case else Print AEnd select2、下列程序段的执行结果是（ ）。 A = 0 : b = 0 For I = -1 To -2 Step -1 For j = 1 To 2 b = b + 1 Next j a = a + 1 Next I Print a; b3、有如
2、下一个函数过程：Function f(a As Integer) b = 0 Static c b = b + 1 c = c + 1 f = a + b + cEnd Function在窗体上添加一个命令按纽，事件过程如下：Private Sub Command1_Click() Dim a As Integer a = 2 For I = 1 To 3 Print f(a)； Next IEnd Sub运行该程序，单击命令按纽，输出结果是（ ）。4、在窗体上添加一命令按纽，名为Command1，然后为该命令按纽编写如下事件过程，该过程执行结果为（ ）。Option base 1Privat
3、e Sub Command2_Click() Dim a As Variant Dim s As integer a = Array(1, 2, 3, 4) j = 1 For I = 1 To 4 Step 1 s = s + a(I) * j j = j * 10 Next I Print sEnd Sub5、下列程序的执行结果是( )。Private Function P(N As Integer) For I = 1 To N SUM = SUM + 1 Next I P = SUMEnd FunctionPrivate Sub Command1_Click() S = P(1) +
4、P(2) + P(3) + P(4) Print S;End Sub6、下列程序段的执行结果为( )。有如下SUB过程：Sub s(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上添加一个命令按纽，然后编写如下事件过程：Private Sub Form_Click() Dim a As Single Dim b As Single a = 5 b = 4 s a, b Print a, bEnd Sub则程序运行后，单击命令按纽，输出的结果为 ( )7、在窗体上添加一命令按纽，名为Command1，然后为该命令按纽
5、编写如下事件过程，该过程执行结果为（ ）。Option base 1Private Sub Command2_Click() Dim a As Variant a = Array(1, 2, 3, 4) j = 1 For I = 4 To 1 Step -1 s = s + a(I) * j j = j * 10 Next I Print sEnd Sub8、下列命令按纽事件过程执行后，输出结果是：For m = 1 To 1000 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next nNext m Print a9、在窗体上添加一个命令按
6、钮，名为command1，一文本框，名为text1,则执行如下事件过程后，文本框中的输出为（ ）。For I = 1 To 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 3 Next k Next jNext I Text1.Text =str( x)10、在窗体上建立三个文本框，名称分别为Text1、Text2和Text3，一个命令按纽，名称为command1，如果在TEXT1中输入数200，在TEXT2中输入数150，则执行下列程序后，TEXT3的值为（ ）。Private Sub Command1_Click()Dim m, n As Int
7、egerm = Val(Text1.Text) : n = Val(Text2.Text)If n * m = 0 Then Exit SubEnd IfIf m n Then t = m: m = n: n = tEnd IfDo r = m Mod n m = n n = rLoop While r 0Text3.Text = mEnd Sub11、下列程序段的执行结果是（ ）。K = 0 For j = 1 To 2 For I = 1 To 3 k = I + 1 Next I For I = 1 To 7 k = k + 1 Next I Next j Print k12.函数如下：
8、Function Total (x As Integer) As LongDim ss As Long, I As Integerss=0For I=1 To x ss=ss+1Next I Total=ssEnd Function调用它的事件过程如下：Private Sub Form_Load()ShowDim I As Integer,sum As LongFor I=1 to 10 sum=sum+total(I)next Iprint 和数为：;sumend sub则该程序的运行结果为( )。13、下列的程序段执行后，X的值为（ ）。 X = 0 For I = 1 To 10 For
9、 j = I To 10 x = x + 1 Next j Next I Print x14、单击命令按钮之后，下列程序代码的执行结果为（ ）。Private Function P(N As Integer) Static sum For I = I To N sum = sum + 1 Next I P = sumEnd FunctionPrivate Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S;End Sub15、下列程序段的执行结果为（ ）。 Dim M(10), N(10) I = 3 For T = 1 To
10、5 M(T) = T N(I) = 2 * I + T Next T Print N(I); M(I)16、在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x y Then max = x Else max = y End IfEnd Function调用它的事件过程如下:Private Sub Command1_Click() Dim I As Integer Dim j As Integer Dim a As I
11、nteger I = Val(InputBox(请输入第一个数据) j = Val(InputBox(请输入第二个数据) a = max(I), (j) Print aEnd Sub则该程序执行后,输入数据50,100,结果为( )。18、下列程序段的执行结果为（ ）。X = 5:y = -20If Not x 0 Then x = y - 3Else y = x + 3 Print x - y; y -xEnd If 19、有如下函数过程：Function gys(ByVal x As Integer, ByVal y As Integer) As Integer Do While y 0
12、reminder = x Mod y x = y y = reminder Loop gys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（ ）。Private Sub Command7_Click() Dim a As Integer Dim b As Integer a = 100:b = 25:x = gys(a, b) Print xEnd Sub20、以下程序段中DoLoop循环执行的次数为（ ）。N=5do if n mod 2=0 then n=n2 else n=n*3+1 end ifLoop until n=121、在窗体上添加一个命令按纽，
13、名为COMMAND1，事件过程如下：Private Sub Command1_Click() x = 0 Do Until c = -1 a = InputBox(请输入a的值) a = Val(a) b = InputBox(请输入b的值) b = Val(b) c = InputBox(请输入c的值) c = Val(c) a = a + b + c Loop Print aEnd Sub程序运行后，单击命令按纽，依次在输入对话框中输入5,4,3,2,1,-1后，输出的结果是（ ）。22、以下程序输出的结果为（ ）。 X = 1: y = 4 Do Until y 4 x = x * y
14、y = y + 1 Loop Print x23、假定有如下的Sub过程：Sub S（x As Single,y As Single）t = xx =t/y y =t Mod yEnd Sub在窗体上画一命令按钮，然后编写如下事件过程Private Sub Commandl_Click ( )Dim a As SingleDim b As Singlea =5 : b =4S a,b Print a,bEnd Sub程序运行后，单击命令按钮，输出结果为 。24、 阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext
15、 i执行上面的三重循环后，a 的值为 。25、执行下面的程序段后，x 的值为 。x=5For i=1 To 20 Step 2x=x+i5Next i26、下列程序段运行后，输出结果是（ ）。 B = 1 Do While b ml Then m1=a(I): m2=I End If Next IEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果为( )。29、函数和调用它的事件过程如下，则该程序运行结果为( )。Function func(a As Integer, b As Integer) As Integer Static m As Integer
16、 Static I As Integer m = 0 : I = 2 I = I + m + 1 : m = I + a + b func = mEnd FunctionPrivate Sub Command1_Click() Dim k As Integer Dim m As Integer Dim p As Integer k = 4: m = 1 p = func(k, m) Print p; p = func(k, m) Print pEnd Sub30、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click
17、() Dim n() As Integer Dim a,b As Integer a=InputBox(Enter the first number) b=InputBox(Enter the second number) ReDim n(a To b) For k=Lbound(n,1) To Ubound(n,1) n(k)=k Printn(;k;)=;n(k) Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为( )。31、下列程序段的执行结果为( )。Dim A(10, 10)For I = 2 To 4 For J = 4 To 5 A
18、(I, J) = I * J Next JNext IPrint A(2, 5) + A(3, 4) + A(4, 5)32、下列是一个计算1到100的奇数的和的程序，请补充完该程序。Private Sub Command1_Click() Dim s As Long Dim x As Integer s = 0 For x= ( ) Step -2 s = s + x Next x Print sEnd Sub33、有如下过程：Sub SS(ByVal X, ByRef Y, Z) X = X + 1 Y = Y + 1 Z = Z + 1 End Sub执行该过程的事件过程如下：Priva
19、te Sub Command1_Click() A = 1 :B = 2: C = 3 Call SS(A, B, C) Print A; B; CEnd Sub该程序的执行结果是( )。34、有如下一个Sub过程：Sub pb(b() As Integer) For I = 1 To 4 b(I) = 2 * I Next IEnd Sub在窗体上添加一个命令按纽，名为Command1，事件过程如下，则运行结果是( )。Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5 :a(2) = 6 : a(3) = 7 : a
20、(4) = 8 pb a() For I = 1 To 4 Print a(I); Next IEnd Sub35、单击窗体时，下列程序代码的执行结果为( )。Private Sub Value(ByVal m As Integer, ByVal n As Integer) m = m * 2 n = n - 5 Print m; nEnd SubPrivate Sub Form_Click() Dim x As Integer Dim Y As Integer x = 10 Y = 15 Call Value(x, Y) Print x; YEnd Sub36、阅读程序：Function F
21、(a As Integer) b=0 Static c b=b+1 c=c+1 f=a+b+cEnd FunctionPrivate Sub Command1_Click () Dim a As Integer a=2 For I=1 To 3 Print F(A), Next IEnd Sub运行上面的程序，单击命令按钮，输出结果为：_37、下列程序段的执行结果是( )。Z = ABCDEFTGABCDEFGFor I = 6 To 2 Step -3u = String(I, z) :v = Left(z, I)w = Mid(z, I, I)x = Right(z, I) : Y = x
22、 + w + v + uY = Right(Y, 1)Next IPrint Y38、下列程序段的执行结果为( )。Dim X(3, 5)For I = 1 To 3 For J = 1 To 5 X(I, J) = X(I - 1, J - 1) + I + J Next JNext IPrint X(3, 4)五、编程题1、 输入3个数，要求按从小到大输出。2、 输入10个学生记录（每个记录包括学号、成绩），组成记录类型数组，统计出平均成绩，及成绩最低的学生的学号和成绩。3、写一程序将一个数插入到已经有序（设从小到大排序）的数组中，使数组还继续保持有序。假设原数组中的数为-12，-4，10
23、，23，68。4、求两个数m和n的最大公约数和最小公倍数，要求用一个函数过程来实现。5、有一个数列，它的头三项是0，0，1，以后每个数都是其前三个数的和。编程在窗体上每行输出5个数，输出此数列，直到最后一个数超过1010为止。6、鸡翁一，值钱五，鸡母一，值钱三，鸡雏一，值钱一，百元买百鸡，问鸡翁、鸡母、鸡雏各几何？7、用随机函数产生100个20-100之间的随机整数，赋予A数组。以每行输出10个元素的紧凑格式在图形框中输出，并在标签框中输出数组元素中的最大值、最小值和它们的平均值。8、编写程序，求S=A！+B！+C！。阶乘的计算分别用SUB过程和FUNCTION过程两种方法来实现。9、把两个按
24、升序（即从小到大）排列的数列a(1)，（2），、a(n)和b(1)、b(2)、b(m)，合并成一个仍为升序排列的新数列。10、编写一个函数，将一个十进制整数转换成2，8，16进制字符串。11、编程序输出在指定范围内的3个随机函数，范围在文本框中输入。12、编写计算阶乘的Funciton过程，利用ex的下述近似公式计算e（直到最后一项小于10-6为止）。13、编制判断是否同时被17与37整除的Funciton过程。输出10002000之间所有能同时被17与37整除的数。14、编制判断素数的Sub过程或Function过程，验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之各，例如6=3+3
25、，8=3+5，10=3+7，。15、设有10个数存放在数组A中，分别为A(1)、A(2)、A(3)、A(4)、A(10)。分别用选择法和冒泡法排序。16、找出11000之间的全部“同构数”。17、若基本工资大于等于600玩，增加工资20%，若小于600大于等于400元，则增加工资15%，若小于400元则增加工资10%，请根据用户输入的基本工资，计算出增加后的工资。18、编写一个程序，输入某仓库的货物数据。建立一个顺序文件。每次从键盘上输入一种货物的数据。包括货物号、名称、单价、进库日期和数量。建立文件后，输出全部的内容。19、税务部门征收所得税，规定如下：1) 收在200元以内，免征;2) 收
26、入在200400元以内的，超过200的部分纳税3%。3) 收入超过400玩的部分，纳税5%。4) 当收入达5000元或超过进，将4%税金改为5%。编写程序实现上述操作。20、编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在每一个列表框中选择所需要的项目，单击“添加”按钮，把所选择的项目移到第二个列表框中。如果单击“删除”按钮，则执行相反的操作。在第二个列表框中，允许同时选择多个项目。要求在每个列表框的下面用标签控件显示各自的Style和Sorted属性。21、编写一个倒计时程序，运行时，单击“设置倒计时间”按钮，将弹出一个输入框，提示输入以分钟为单位的时
27、间，若单击“开始倒计时”按钮，将开始倒计时，在标签上显示剩余时间并按秒刷新。22、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBxo函数输入数据，在窗体上显示及平均值。23、输人三角形的三条边a、b、c的值根据其数值判断能否构成三角形。若能还要显示三角形的性质：等边三角形、等腰三角形、直角三角形或任意三角形。24、输入一元二次方程的A、B、C，求出这个方程有没有实根，如果有实根分别求出来25、产生30个AZ之间的随机大写字母。26、 编写一个程序，计算半径为15cm、高为30cm的圆柱体的体积、半径和高通过InputBox函数输入，计算结果并将其打印到窗体中。2
28、7、编写程序，实现矩阵转置，即将一个n*M的矩阵的行和列互换。例如，a矩阵为 28、编写一个子过程DeleStr(s1,s2)，将字符串S1中出现的S2子字符串删去，结果还是存放在s1中。例如：s1=”12345678AAABBDEFG12345” s2=”234”结果：s1=-1567AAABBDEfG15”【提示】解决此问题的方法要点如下：在s1字符串找s2的子字符串，可利用InStr()函数，要考虑到S1字符中可能存在多个或不存在S2字符串，用Do While Instr(s1,s2)0循环结构来实现。若在s1中找到s2字符串，首先要确定s1字符串的长度，因s1字符串在进行多次删除时，长度在变化;然后通过：Left$()、Right()函数的调用来实删除s1中存在的s2字符串。六、
