vb程序阅读题.docx

1、vb程序阅读题四、阅读题 【程序说明】1、写出下列程序运行时，分别输入数据14、3、115、21时，标签框中显示的内容。DPrivateSubForm_Click()DimbAsIntegera=Val(InputBox(请输入数据,100)SelectCaseaMod5CaseIs 4w=a+10CaseIs 2w=a*2CaseElsew=a-10EndSelectLabel1.Caption=w=&Str(w)EndSubD、W=4W=13W=125W=31C、W=4W=13W=105W=31B、W=14W=13W=125W=31A、W=4W=13W=105W=112、程序运行时单击Co

2、mmand1后，输入123，写出窗体上的输出结果。APrivateSubCommand1_Click()DimxAsLong,yAsStringx=InputBox(请输入数字,)DoWhilex0y=y&xMod10x=x100PrintyLoopEndSubD、以上答案都不对C、323B、332321A、3313、请写出输入m为10、n为8时窗体中的输出结果。ADimmAsInteger,nminAsInteger,nAsInteger,naAsIntegerPrivateSubForm_click()m=InputBox(pleaseinputm)n=InputBox(pleaseinp

3、utn)Fori=mTo1Step-1IfnModi=0AndmModi=0Thens=1:ExitForNextiIfs=1ThenprintiEndSubA、2 B、4 C、6 D、84、写出程序运行时单击窗体后，在窗体上出现的结果。DPrivateSubForm_Click()DimIAsSingle,xAsSingle,yAsSingleClsForI=0To2*3.1415927Step0.0001x=2400+1000*Sin(I)y=1600+1000*Cos(I)Line(2400,1600)-(x,y),RGB(255,0,0)NextIEndSubA、转动一条长度为2400

4、单位的红色直线，其轨迹形成一个圆B、转动一条长度为1600单位的红色直线，其轨迹形成一个圆C、转动一条长度为1500单位的红色直线，其轨迹形成一个圆D、转动一条长度为1000单位的红色直线，其轨迹形成一个圆5、【程序说明】写出下列程序运行时，单击窗体后输入x=3，n=2窗体上的显示结果。APrivateFunctions(n%,x!)AsSingleDimi%,k%,t#,f#f=0:k=x:t=1Fori=2To2*nStep2t=t*i*(i-1)f=f+k/tk=k*x*xNextis=fEndFunctionPrivateSubForm_Click()Dimn%,x!x=InputBo

5、x(x=)n=InputBox(n=)Prints=;Fix(s(n,x)EndSubA、s=2 B、s=3 C、s=3.625 D、s=3.66、写出程序运行时连续3次单击Command1后，a1.dat文件的最终结果。ADimaAsInteger,yAsInteger,xAsIntegerPrivateSubCommand1_Click()Opena1.datForAppendAs#1x=1i=5DoUntilxia=a+x:x=x+5Loopy=y+a:Print#1,y=;y,a=;aClose#1EndSubPrivateSubForm_Load()Opena1.datForOutp

6、utAs#1:Close#1EndSubD、y=1a=1y=3a=3y=6a=6C、y=1a=1y=2a=2y=3a=3B、y=1a=1y=1a=1y=1a=1A、y=1a=1y=3a=2y=6a=3四、阅读题第1题：【程序说明】写出下列程序运行时，单击窗体后窗体上的显示结果。DPrivateSubForm_Click()DimxAsString,dAsInteger,nAsInteger,iAsInteger,yAsStringx=abcdefghijkld=Asc(a)-Asc(A)n=Len(x)Fori=1TonStep2 y=y+Chr(Asc(Mid(x,i,1)-d)NextiP

7、rinty=;yEndSubA、y=bdfhjl B、y=acegik C、y=BDFHJL D、y=ACEGIK第2题：【程序说明】下列程序运行时，单击窗体3次，写出窗体上输出的内容。APrivateSubForm_Click()DimbAsIntegerStaticaAsIntegerb=a+ba=a+b+1Form1.Printa=;a,b=;bEndSubD、a=1b=1a=3b=2a=7b=4C、a=1b=0a=3b=1a=8b=4B、a=1b=0a=1b=0a=1b=0A、a=1b=0a=3b=1a=7b=3第3题：请写出鼠标点击弹出菜单第二项后窗体上的显示结果。BPrivateS

8、ubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumnuPopup,10EndSubmnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名PrivateSubmnuChoice1_Click()m=您选择了第一项printmEndSubPrivateSubmnuChoice2_Click()m=您选择了第二项printmEndSubPrivateSubmnuChoice3_Click()m=您选择了第三项printmEndSubA、您选择了第一项

9、 B、您选择了第二项 C、您选择了第三项 D、您选择了第四项第4题：写出程序运行时单击窗体后，在图片框上出现的结果。CPrivateSubForm_Load()Picture1.Width=Picture1.HeightEndSubPrivateSubForm_Click()DimiAsSingle,xAsSingle,yAsSinglePicture1.Scale(-100,100)-(100,-100)Picture1.ClsFori=0To2*3.1415927Step0.0001x=100*Cos(i)y=100*Sin(i)Picture1.Line(0,0)-(x,y),RGB(0

10、,0,255)NextiEndSubA、在图片框中画了100条蓝色直线，直线长度为100单位B、在图片框中画了100条红色直线,直线长度为100单位C、转动一条长度为100单位的蓝色直线，其轨迹形成一个图片框的内接圆D、转动一条长度为100单位的红色直线，其轨迹形成一个图片框的内接圆第5题：写出程序运行时单击窗体后，文件a1.dat中的结果。APrivateSubForm_Click()DimiAsInteger,f1AsInteger,f2AsInteger,f3AsIntegerOpena1.datForOutputAs#1f1=1:f2=2Print#1,NO.;1,f1:Print#1

11、,NO.;2,f2Fori=3To4f3=f1+f2Print#1,NO.;i,f3f1=f2:f2=f3NextiClose#1EndSubD、NO.11NO.22NO.33NO.55C、NO.11NO.22NO.33NO.44B、NO.11NO.22NO.33NO.54A、NO.11NO.22NO.33NO.45第6题：运行时，若Text1.Text为空，在Text1获得输入焦点后，依次按下列按键： 1、2、+、3、4、-、5、6、回车键,请写出text1上的内容结果 BPrivateSubText1_KeyPress(keyasciiAsInteger)IfkeyasciiAsc(9)T

12、henkeyascii=0EndIfEndSubA、+ B、123456 C、12034056 D、以上答案都不对四、阅读题 1：请写出在Text1、Text2、Text3中依次输入3、1、2后，单击窗体时Label1的显示结果。C Private Sub Form_Click() Dim a As Single, b As Single a = Text1.Text: b = val(Text2.Text+text3.text) Label1.Caption = Str(a * a + b * b) End Sub A、18 B、9144 C、153 D、以上答案都不对 2：请写出鼠标点击弹

13、出菜单第一项后窗体上的显示结果。A Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuPopup, 10 End Sub mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名 Private Sub mnuChoice1_Click() m = 信息科学与工程学院 print m End Sub Private Sub mnuChoice2_Click() m = 护理学院 pr

14、int m End Sub Private Sub mnuChoice3_Click() m = 材化学院 print m End Sub A、信息科学与工程学院 B、护理学院 C、材化学院 D、无显示 3：写出程序运行时单击窗体后，在图片框上出现的结果。B Private Sub Form_Load() Picture1.Width = Picture1.Height End Sub Private Sub Form_Click() Dim i As Single, x As Single, y As Single Picture1.Scale (-100, 100)-(100, -100)

15、 For i = 0 To 2 * 3.1415926 Step 0.1 * 3.1415926 x = 100 * Cos(i) y = 100 * Sin(i) Picture1.Line (0, 0)-(x, y), RGB(255, 0, 0) Next i End Sub A、从图片框中心出发画了10条红色直线, 直线长度为100单位 B、从图片框中心出发画了20条红色直线, 直线长度为100单位，其轨迹形成一个圆。 C、 转动一条长度为100单位的蓝色直线，其轨迹形成一个图片框的内接圆 D、转动一条长度为100单位的红色直线，其轨迹形成一个图片框的内接圆 4：写出程序运行时单击窗体

16、后，a1.dat文件的结果和窗体上的输出结果。 D Private Sub Form_Click() Dim a(1 to 3) As Integer, k As Integer, i As Integer, j As Integer Open a1.dat For Output As #1 J=1 For i = 1 To 3: j = i * j: Print #1, j; : Next i Close #1 Open a1.dat For Input As #1 k = 0 Do While Not EOF(1) k = k + 1: Input #1,a(k) Loop Close #

17、1 For i = k To 1 Step - 1: Form1.Print a(i); : Next i End Sub B、窗体：1 2 6文件：6 2 1D、 窗体：6 2 1文件：1 2 6C、窗体1 2 6文件：1 2 6 A、 窗体：6 2 1 文件：6 2 1 5：【程序说明】 写出下列程序运行时，输入年份3100，月份2后，单击窗体后窗体上的显示结果。D Private Sub Form_Click() Dim y As Integer,m As Integer,d As integer y = InputBox(“输入年份”) m= InputBox(“输入月份”) Sele

18、ct Case m Case 1,3,5,7,8,10,12 d= 31 Case 4,6,9,11 d= 30 Case 2 If y Mod 4 = 0 And y Mod 1000 Or y Mod 400 = 0 Then d = 29 Else d = 28 End If Case else d = 0 End Select Print y;”年”;m;”月有”;d;”天” End Sub A、3100年2月有31天 B、3100年2月有29天 C、3100年2月有30天 D、3100年2月有28天 6：【程序说明】 写出下列程序运行时，单击窗体后窗体上的显示结果。A Dim i A

19、s Integer, j As Integer, k As Integer, h As Integer Private Sub Form_Click() i = 0: j = 1: k = 2 Call q(1, i): Print i; j; k, Call q(i, k): Print i; j; k, End Sub Private Sub p(i) i = i + 1: Print i; j; k, End Sub Private Sub q(ByVal h, j) If h = 1 Then Call p(i) Else j = j + 1 End Sub D、1 1 2 1 2 2

20、 3 1 2 3 2 2 C、1 1 2 1 2 2 3 1 2 3 1 2 B、1 1 2 1 1 2 3 1 2 3 1 2 A、 1 1 2 1 1 2 2 1 2 2 1 2四、阅读题 第1题：请写出在文本框中输入“456AbC”后窗体上的显示结果。A Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case Chr(KeyAscii) Case a To z Print Ucase(Chr(KeyAscii); Case A To Z Print Lcase(Chr(KeyAscii); Case Else KeyAsci

21、i = 0 End Select End Sub A、aBc B、456AbC C、456abC D、0 第2题：请写出鼠标点击弹出菜单第一项后窗体上的显示结果。 A Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuPopup, 10 End Sub mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名 Private Sub mnuChoice1_Click() m = 信息

22、科学与工程学院 print m End Sub Private Sub mnuChoice2_Click() m = 护理学院 print m End Sub Private Sub mnuChoice3_Click() m = 材化学院 print m End Sub A、信息科学与工程学院 B、护理学院 C、材化学院 D、无显示 第3题：写出程序运行时单击窗体后，在图片框上出现的结果。A Private Sub Form_Load() Picture1.Width = Picture1.Height End Sub Private Sub Form_Click() Dim i As Sin

23、gle, x As Single, y As Single Picture1.Scale (-100, 100)-(100, -100) For i = 0 To 2 * 3.1415926 Step 0.2 * 3.1415926 x = 100 * Cos(i) y = 100 * Sin(i) Picture1.Line (0, 0)-(x, y), RGB(255, 255, 0), B Next i End SubA、 B、 C、 D、 第4题：请写出程序运行时单击窗体后窗体上的内容。B Private Sub Form_Click() Dim n As byte,i As byte

24、 Open a1.dat For Output As #1 n = 5 For i = 1 To n: Print #1,i*2; : Next i Close #1 Open a1.dat For Input As #1 For i = 1 To n Input #1, a If i Mod 3 = 0 Then Print a*2 Next i Close #1 End Sub A、6 B、12 C、3 D、24 第5题：【程序说明】 写出下列程序运行时，输入8、9、3、0后，窗体上的显示结果。D Private Sub Form_click() Dim I As Integer, sum

25、 As Integer, m As Integer sum = 0 Do m = InputBox(输入m) If m = 0 Then Exit Do sum = sum + m Loop Print sum; End Sub A、21 B、0 C、17 D、20 第6题：【程序说明】 写出下列程序运行时，单击窗体后，窗体上的显示结果。A Dim x As Integer Private Sub Form_Load() x = 2 End Sub Private Sub Form_Click() Static a As Integer Dim b As Integer, y As Integer b = x 2 abc x, b a = a + x y = y + b Print a;b;x;y End Sub Sub abc(ByRef y As Integer, ByVal z As Integer) y = y + z z = y - z End Sub A、6 4 6 4