vb程序阅读题与填空题.doc

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

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-datevb程序阅读题与填空题vb程序阅读题与填空题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

2、 Then i = i +4: Exit Forj = j + 1k = k + 1NextIf i 8 Then Exit ForNextPrint kEnd Sub2、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别是 和 ；若将程序中A语句与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 I

3、fNext kPrint k, b4、以下是按钮cmdl的Click事件过程，求1100之间的所有质数。质数的个数显示在窗体上，在划线处填上缺少的内容。Private Sub cmdl_Click( )Dim intNum As Integer, int1 As Integer, 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、若命令按钮的名称为Cm

4、dExit，程序要求单击以上命令按钮时，程序停止运行。请在画线处中填入适当的内容。Private Sub CmdExit_ ( ) End Sub6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。Private 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 t

5、xt2.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 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

6、 = 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运行结果：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_Cli

7、ck() Dim b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = bEnd Sub2以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。 Private Sub Command_Click() X = Val(Text1.Text) If （1） Then Print XElse （2） （3） （4） End IfEnd Sub五、编程题1设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（

8、text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。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

9、 成绩输入不全！ 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设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时 “欢迎您！”几个字的字体变成粗体，用户选中斜体复选框时 “欢迎您！”几个字的字体变成斜体。若取消选中，则恢复原字体。按结束，则退出。4任给3个数，求其中间数，写出程序代码。三、阅读程序题1阅读下列程序并写出程序运行结果Private Sub Form

10、_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写出程序运行时单击窗体后，窗体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)

11、 Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是：运行结果：3阅读下列程序并写出程序运行结果Private Sub Command1_Click() Dim Sum1 As Integer, 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.

12、阅读下列程序并写出程序运行结果Private Sub Command1_Click() Dim x As Integer6阅读下列程序并写出程序运行结果Private Sub Command1_Click()Dim A(2 To 7) As Integer Dim b As 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

13、 s = s + x End If Text1.Text = s= & Str(s)End Sub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。5阅读下列程序并写出程序运行结果Private Sub Form_Click() 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 写出程序运行时单击窗体后，窗体Form

14、1上的结果： 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 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 Su

15、b 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 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

16、,y) Printx;y EndSub PublicSubProc(nAsInteger,ByValmAsInteger) n=nMod10 m=mMod10 EndSub A)1232 B)232 C)23 D)123 二、填空题(1)完成下面的程序，使显示结果如下图所示。 PrivateSubForm_Click() FontSize=18 Sample=【1】 x=(ScaleWidth-TextWidth(Sample)/2 y=(ScaleHeight-TextHeight(Sample)/2 CurrentX=x CurrentY=y 【2】 Sample EndSub (2)下列

17、程序的功能是：当x100时，没有意义。请填空。 PrivateSubCommand1_Click() DimxAsSingle x=InputBox(请输入x的值！) 【3】 CaseIs50 y=0.8*x Case50To100 y=0.7*x 【4】 Print输入的数据出界！ EndSelect Printx,y EndSub 35.窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序： DimyAsInteger PrivateSubCommand1_Click() DimxAsInteger x=2 Text1.Text=p2(p1(x),y) Te

18、xt2.Text=p1(x) EndSub PrivageFunctionP1(xAsInteger)AsInteger x=x+y:y=x+y P1=x+y EndFunction PrivateFunctionP2(xAsInteger,yAsInteger)AsInteger 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.RemoveIte

19、m iNextEnd sub31.如下程序，运行的结果是（B） PrivateSubForm_Click() DimmAsInteger,iAsInteger,x(10)AsInteger Fori=0to4 x(i)=i+1 Nexti Fori=1to2 Callproc(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=

20、5to1Step-1 PrintI*j Nextj NextI 则语句PrintI*j的执行次数I、j的值分别是（A） 33.在窗体上一个文本框，其名称为Text1,然后编写如下事件过程： PrivateSubText1_KeyPress(KeyAsciiAsInteger) DimstrAsString,nAsInteger str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) EndSub 程序运行后，如果在键盘上输入单字母K，则在文本框Text1中显示的内容为（） 5.下面的程序输入X的值，按以下公式求Y值。Private Sub

21、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 Sub6以下程序是利用公式来计算的值。其中，变量k表示当前符号项，t表示当前项，n表示当前项的序号，要求精度控制在0.00001内。试分析程序，完成空格处填的内容。Dim pi As Single,t As SingleDim n As Single,k As Singlepi=0 : n=1k=1 : t=1Do Whil

22、e(【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, 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+1Prin

23、t 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+6Next 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 Inte

24、gers=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 Sub 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 In

25、teger,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 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= ; y

26、A) y=0B) y=1C) y=随机值D) y=-119以下程序的输出结果是_。Dim m As Integerm=1While m10 Then Exit DoLoopPrint mEnd Sub1下列过程的功能是：在对多个文本框进行输入时，对第一个文本框（Text1）输入完毕后用回车键使焦点跳到第二个文本框（Text2），而不是Tab键来切换。请完成该程序。Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If 【1 】 Then Text2. 【2 】End IfEnd Sub1编写如下两个事件过程：Priva

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

28、k()Text1.Text = UCase(saveall)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)saveall = saveall + Chr(KeyAscii)End SubPrivate Sub Form_Load()Text1.Text = End Sub程序运行后，在键盘上输入abcdefg，单击命令按钮，写出文本框上显示的内容。3.单击窗体时，下列程序的执行结果为_。Private Sub Form_Click() Test (2)End SubPrivate Sub Test(x As Integer) x =

29、x * 2 + 1 If x 6 Then Call Test(x) End If x = x * 2 + 1 Print x;End Sub6单击窗体时，下列程序代码的执行结果为_，如果在Procl过程的第二形参y前加ByVal关键字，那么单击窗体时，程序代码的执行结果为_。Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call procl(x, x, z) Call procl(x, y, y)End SubPrivate Sub procl(x As In

30、teger, y As Integer, z As Integer) x = 3 * z y = 2 * z z = x + y Print x; y; zEnd Sub9下列程序连续运行三次的结果为_。Option ExplicitSub First()Static s As IntegerDim i As IntegerFor i = 1 To 10 Step 2 s = s + iNext iPrint s;End SubPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerCall FirstEn

31、d Sub10运行下列程序，在立即窗口上第二行显示_；第三行显示_。1写出下列程序的运行结果。Private Sub Command1_Click()Dim x%, y%x = 18y = 28Call swap(x, y)Print x, yEnd SubPrivate Sub swap(a%, b%)Dim t%t = aa = bb = tEnd SubOption ExplicitDim a As IntegerPrivate Sub Command1_Click()Dim b As IntegerDim d As Integera = 1: b = 2d = fun(a, fun(a

32、, b)Debug.Print a, b, dEnd SubPrivate Function fun(k As Integer, n As Integer) As IntegerDebug.Print k, n;k = n + a + kn = k + a + nfun = k + nDebug.Print funEnd Function三、程序阅读题：3写出下列程序的执行结果。Option ExplicitSub Ss(ByVal x As Integer, ByRef y As Integer, z As Integer)x = x + 1y = y + 1z = z + 1End SubPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer