vb程序阅读题与填空题

1、VB程序阅读题与程序填空题综合练习1、阅读下面程序，当单击窗体之后，窗体上输出的是 。Private Sub Form_Click( )Dim i As Integer, j As IntegerDim k As Integer k=0For i = 0 To 10 Step 3For j = 1 To 10If j = 5 Then i = i +4: Exit Forj = j + 1k = k + 1NextIf i 8 Then Exit ForNextPrint kEnd Sub2、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别是 和 ；若将程序中A语

2、句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是 和 。Private Sub Form_Click( )Dim x As Integer, y As Integerx = 1 : y = 0Do While x = 15 Then Exit ForElsek = k + 1End IfNext kPrint k, b4、以下是按钮cmdl的Click事件过程，求1100之间的所有质数。质数的个数显示在窗体上，在划线处填上缺少的内容。Private Sub cmdl_Click( )Dim intNum As Integer, int1 As Integ

3、er, int2 As IntegerintNum = 0For int1 = For int2 = 2 To int1 2If (int1 Mod int2) = 0 Then intNum=1End IfNext If sNum = sNum + 1End IfNextPrint End Sub5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。请在画线处中填入适当的内容。Private Sub CmdExit_ ( ) End Sub6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。Private

4、 Sub Comandl_Click( )Dim int1 As Integerint1 =val (txt1.Text)Select Case int1Case txt2.Text = 值为0Case txt2.Text = 值在1和10之间（包括1和10）Case txt2.Text = 值大于10Case Else txt2.Text = 值小于0End SelectEnd Sub四、读程序题，写出程序运行结果。1运行结果：Private Sub Form_Click() For I = 1 To 9 For j = 1 To 30 - 3 * I Print ; Next j For

5、k = 1 To I Print k; Next k For k = I - 1 To 1 Step -1 Print k; Next k Print Next IEnd Sub2运行结果：Private Sub Command1_Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print SEnd Sub3运行结果：For X = 5 To 1 Step 1 For Y = 1 To 6 - X Print Tab(Y + 5); *; Next Y PrintNext X4

6、运行结果：S = 0: T = 0: U = 0 For X = 1 To 3 For Y = 1 To X For Z = Y To 3 S = S + 1 Next Z T = T + 1 Next Y U = U + 1Next XPrint S; T; U5运行结果：Private Sub Command1_Click() Dim b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = bEnd Sub2以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Te

7、xt1中，选中其中的文本。 Private Sub Command_Click() X = Val(Text1.Text) If （1） Then Print XElse （2） （3） （4） End IfEnd Sub五、编程题1设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出

8、。Private Sub Command1_Click() Text1.Text = 1 Text2. 2= 2 3.Text = 3End SubPrivate Sub Command2_Click() If Text1. 4= Or Text2.Text = 5 Or Text3.Text = Then4 MsgBox 成绩输入不全！ 5 Else Text4.Text = (6 + Val(Text2.Text) 6 + Val(Text3.Text) / 7 7 8 8 End SubPrivate Sub Command3_Click()Unload 99 10 Sub10 3设计一

9、个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时 “欢迎您！”几个字的字体变成粗体，用户选中斜体复选框时 “欢迎您！”几个字的字体变成斜体。若取消选中，则恢复原字体。按结束，则退出。4任给3个数，求其中间数，写出程序代码。三、阅读程序题1阅读下列程序并写出程序运行结果Private Sub Form_Click() Dim s As Long, f As Long, n As Integer, i As Integer n = 3 For i = 1 To n f = f + i s = s + f Next Print s=; sEnd Sub写出程序运行时单击窗体后

10、，窗体Form1上的输出结果。运行结果：2阅读下列程序并写出程序运行结果Private Sub Command1_Click() x = 0 Do While x 100 x = (x + 2) * (x + 4) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是：运行结果：3阅读下列程序并写出程序运行结果Private Sub Command1_Click() Dim Sum1 As Integer,

11、Sum2 As Integer Sum1 = 0: Sum2 = 1 For I = 1 To 4 For J = 1 To I Sum2 = Sum2 * J Next J Sum1 = Sum1 + Sum2Next IPrint Sum1End Sub 写出程序运行时单击命令按纽后，窗体上的输出结果。运行结果：4. 阅读下列程序并写出程序运行结果Private Sub Command1_Click() Dim x As Integer6阅读下列程序并写出程序运行结果Private Sub Command1_Click()Dim A(2 To 7) As Integer Dim b As

12、IntegerFor b = 2 To 7A(b) = bNext bText1.Text = A(b - 2)End Sub程序运行后，单击命令按纽文本框Text1的结果是：Static s As Integer x = Val(InputBox(请输入一个正整数=) If x 6 Then s = s * x Else s = s + x End If Text1.Text = s= & Str(s)End Sub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。5阅读下列程序并写出程序运行结果Private Sub Form_Click(

13、) Dim A(1 To 3) As String Dim c As Integer,j As Integer A(1) = “2” A(2) = “4” A(3) = “6” c=0 For j=1 to 3 c = c + Val(A(j)Next jPrint cEnd Sub 写出程序运行时单击窗体后，窗体Form1上的结果： 11. 阅读下列程序并写出程序运行结果 Private Sub Form_Click( ) Static Sum As Integer I=1 While i 3 Then a = a + 4 Else a = a + 1 End If Next iPrint

14、i, aEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。10. 阅读下列程序并写出程序运行结果Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x,yEnd subPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 3: b = 4Change a, b Print a,bEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果 (20)下列程序段执行结果为 ( )x=5 y=-6

15、 IfNotx0Thenx=y-3Elsey=x+3 Printx-y;y-x A)-33 B)5-9 C)3-3 D)-65 (23)单击命令按钮时，下列程序的执行结果为 ( )PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=12:y=32 CallProc(x,y) Printx;y EndSub PublicSubProc(nAsInteger,ByValmAsInteger) n=nMod10 m=mMod10 EndSub A)1232 B)232 C)23 D)123 二、填空题(1)完成下面的程序，使显示结果如下图所示。

16、 PrivateSubForm_Click() FontSize=18 Sample=【1】 x=(ScaleWidth-TextWidth(Sample)/2 y=(ScaleHeight-TextHeight(Sample)/2 CurrentX=x CurrentY=y 【2】 Sample EndSub (2)下列程序的功能是：当x100时，没有意义。请填空。 PrivateSubCommand1_Click() DimxAsSingle x=InputBox(请输入x的值！) 【3】 CaseIs50 y=0.8*x Case50To100 y=0.7*x 【4】 Print输入的数

17、据出界！ EndSelect Printx,y EndSub 35.窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序： DimyAsInteger PrivateSubCommand1_Click() DimxAsInteger x=2 Text1.Text=p2(p1(x),y) Text2.Text=p1(x) EndSub PrivageFunctionP1(xAsInteger)AsInteger x=x+y:y=x+y P1=x+y EndFunction PrivateFunctionP2(xAsInteger,yAsInteger)AsInte

18、ger P2=2*x+y EndFunction 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是（C） 5执行了以下的程序后，列表框中的数据项有_。Sub Form_click()For i=0 To 4List1.AddItem iNextFor i=1 To 2 List1.RemoveItem iNextEnd sub31.如下程序，运行的结果是（B） PrivateSubForm_Click() DimmAsInteger,iAsInteger,x(10)AsInteger Fori=0to4 x(i)=i+1 Nexti Fori=1to2 Callproc

19、(x) Nexti Fori=0to4 Printx(i); Nexti EndSub PublicSubproc(a()AsInteger) StaticiAsInteger Do a(i)=a(i)+a(i+1) i=i+1 LoopWhilei2 EndSub 32.假设有以下程序段： ForI=1to3 Forj=5to1Step-1 PrintI*j Nextj NextI 则语句PrintI*j的执行次数I、j的值分别是（A） 33.在窗体上一个文本框，其名称为Text1,然后编写如下事件过程： PrivateSubText1_KeyPress(KeyAsciiAsInteger)

20、 DimstrAsString,nAsInteger str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) EndSub 程序运行后，如果在键盘上输入单字母K，则在文本框Text1中显示的内容为（） 5.下面的程序输入X的值，按以下公式求Y值。Private Sub Command1_Click()X=Val(Text1.Text)Select Case XCase 【1 】Print X200Case 【2 】Y=100-XCase 【3 】Y=100+XCase 【4 】Y=400End SelectText2.Text=YEnd S

21、ub6以下程序是利用公式来计算的值。其中，变量k表示当前符号项，t表示当前项，n表示当前项的序号，要求精度控制在0.00001内。试分析程序，完成空格处填的内容。Dim pi As Single,t As SingleDim n As Single,k As Singlepi=0 : n=1k=1 : t=1Do While(【1 】)pi =pi+tk=-kt=【2 】n=n+1Looppi=【3 】Print pi=;pi7下列程序的功能是输出的前20项，按每行5个数的形式输出。Fibonacci数列：F1=1,F2=1,Fn=Fn-1+Fn-2(n=2)Dim a As Integer,

22、 b As IntegerDim c As Integer, i As Integera = 1: b = 1: i = 3Print a, b,Do While (i 1000 Then_ End Ifnext iabc:Print s7以下程序段的输出结果是_。num=0While num=2num=num+1Print numWend8以下程序段的输出结果是_。Dim j As Integer,s As IntegerDo3写出下面程序的运行结果。Private Sub Form_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6

23、Next kNext jNext iprint xEnd Subs=s+jj=j+1Loop Until j=5Print s=;s四、程序阅读题1写出下面程序的运行结果。Private Sub Form_Click()Dim s As Integer,k As Integer,m As Integer,n As Integers=1For m=1 To 3For n=m To 3For k=n To m Step -1s=s*kNext k,n,mPrint sEnd Sub2写出下面程序的运行结果。Private Sub Form_Click()6写出下面程序的运行结果。Private S

24、ub Form_Click()Dim m As Integer,n As Integer,k As Integerm=1 : n=a : k=5Do While m10 Then Exit DoLoop Until m10Print mEnd Sub5写出下面程序的运行结果。7写出下面程序的运行结果。Dim i As Integer,a As IntegerDo While i20Do While TrueIf i Mod 10=0 ThenExit DoElsei=i-1End IfLoopi=i+11 a=a+iLoopPrint aPrivate Sub Form_Click()Dim

25、m As Integer,n As Integerm=10Do m=m+nFor n=10 To m step -1m=m+nNext nLoop While m50Print m;nEnd Sub18下列程序的输出结果是_。Dim y As Integery=10While y0y=y-1WendPrint y= ; yA) y=0B) y=1C) y=随机值D) y=-119以下程序的输出结果是_。Dim m As Integerm=1While m10 Then Exit DoLoopPrint mEnd Sub1下列过程的功能是：在对多个文本框进行输入时，对第一个文本框（Text1）输

26、入完毕后用回车键使焦点跳到第二个文本框（Text2），而不是Tab键来切换。请完成该程序。Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If 【1 】 Then Text2. 【2 】End IfEnd Sub1编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(

27、KeyAscii)End Sub在一般情况下（即不按住Shift键和锁定大写），运行程序，如果按A键，则程序的输出结果是什么？2在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim saveall As StringPrivate Sub Command1_Click()Text1.Text = UCase(saveall)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)saveall = saveall + Chr(KeyAscii)End SubPrivate Sub For

28、m_Load()Text1.Text = End Sub程序运行后，在键盘上输入abcdefg，单击命令按钮，写出文本框上显示的内容。3.单击窗体时，下列程序的执行结果为_。Private Sub Form_Click() Test (2)End SubPrivate Sub Test(x As Integer) x = x * 2 + 1 If x y,x,y)End FunctionPrivate Sub Command1_Click() Dim a As Integer,b As Integer a=100 b=200 print M(a,b)End Sub5写出下面程序的输出结果。Pr

29、ivate Sub Command1_Click() Dim k As Integer For i=3 To 5 Step 2 k=i Call text(k) m=m+k Next i Print m;iEnd SubPrivate Sub test(n As Integer) n=1+2*nEnd Sub6写出下面程序的输出结果。Function F(a As Integer) b=0 Static c b=b+1 c=c+1 F=a+b+cEnd FunctionPrivate Sub Command1_Click()8写出下面程序的输出结果。Public Function myfun(

30、m!,n%) As Integer If n=0 Then myfun=1 Else If n Mod 2=1 Then myfun=m*myfun(m,n2) Else myfun=myfun(m,n2)m End If End IfEnd FunctionPrivate Sub Command1_Click() Print myfun(3,11) Dim a As Integer a=2 For i=1 To 3 Print F(a) Next iEnd SubEnd Sub9当发生了Command1_Click事件后，写出下面程序的输出结果。Public Function age(n A

31、s Integer) As Integer Dim k As Integer If n=1 Then k=1 Else k=2*age(n-1)+3 End If age=kEnd FunctionPrivate Sub Command1_Click() Dim a As Integer,k As Integer k=5 : a=age(5) : Print aEnd Sub四、程序填空题：3以下Function过程Odd用于判断一个数是否为奇数。当单击命令按钮时，随机产生一个二位数，设用Odd过程判断该数是否是奇数。如果是奇数，则显示True，否则显示False。Option Explici

32、tPrivate Sub Command1_Click()Dim x As Integerx = 【1 】Print x, Odd(x)End SubFunction Odd(ByVal n As Integer) As BooleanIf 【2 】 Then Odd = FalseElse Odd = TrueEnd IfEnd Function4下列程序的功能是求两个正整数的最大公约数。阅读下列程序，请在空格处天如相应的语句，使之完成上述功能。Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer,

33、 g As Integera = InputBox(输入数字a:)b = InputBox(输入数字b:)【1 】 = Gc(a, b)Print a; 和; b; 的最大公约数是：; gEnd SubPrivate Function Gc(ByVal x As Integer, 【2 】As Integer)Dim z As Integerz = x Mod yDo While z 0 x = y y = z z = x Mod yLoopGc = 【3 】End Function5下列程序的功能是将一个数的各位数字相乘并打印在窗体上。阅读下列程序，请在空格处天如相应的语句，使之完成上述功能

34、。Option ExplicitPrivate Sub Command1_Click()Dim n As Longn = InputBox(请输入一个数)Print Fun1(n)End SubPrivate Function Fun1(Num As Long) As LongDim s As Longs = 1Num = Abs(Num)Do While【1 】 s = s * (Num Mod 10) Num = 【2 】LoopFun1 = 【3 】End Function三、程序阅读题1在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程，程序运行后，在文本框中显示的内容是什么？

35、在图片框中显示的内容是什么？Private Sub Form_Load()Text1.Text=计算机End SubPrivate Sub Text1_Change()Picture1.Print 文化基础End Sub2窗体上有一按钮和一个列表框，执行下列程序，写出运行结果。Private Sub Command1_Click()List1.AddItem ChinaList1.AddItem USAList1.AddItem Japan,1Print List1.List(2)End Sub四、程序填空题1在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，程序运

36、行后，Command1为禁用（灰色）。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在空白出添入适当的内容，将程序补充完整。Private Sub Form_Load()Command1.Enabled=FalseEnd SubPrivate Sub Text1【1 】Command1.Enabled=TrueEnd Sub2下面的程序运行时，用户在组合框中输入数据，当按回车键时，如果组合框列表中没有与输入内容相同的选项，则将输入内容添加到列表中。阅读程序并填空。Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim addtext As Boolean If KeyAscii = 13