vb程序阅读题.docx

vb程序阅读题.docx

《vb程序阅读题.docx》由会员分享，可在线阅读，更多相关《vb程序阅读题.docx（103页珍藏版）》请在冰豆网上搜索。

vb程序阅读题

四、阅读题 

【程序说明】

1、写出下列程序运行时，分别输入数据14、3、115、21时，标签框中显示的内容。

D

Private Sub Form_Click（）

    Dim b As Integer

    a = Val（InputBox（"请输入数据", , 100））

    Select Case a Mod 5

        Case Is <4

            w = a + 10

        Case Is <2

            w = a * 2

        Case Else

            w = a - 10

        End Select

        Label1.Caption = "w=" & Str（w）

End Sub

D、

W=4

W=13

W=125

W=31

C、

W=4

W=13

W=105

W=31

B、

W=14

W=13

W=125

W=31

A、

W=4

W=13

W=105

W=11

2、程序运行时单击Command1后，输入123，写出窗体上的输出结果。

A

Private Sub Command1_Click（）

    Dim x As Long, y As String

    x = InputBox（"请输入数字", ""）

    Do While x <> 0

        y = y & x Mod 10

        x = x \ 100

        Print y

    Loop

End Sub

D、以上答案都不对

C、

3

23

B、

3

32

321

A、

3

31

3、请写出输入m为10、n为8时窗体中的输出结果。

A

Dim m As Integer, nmin As Integer,n As Integer, na As Integer

Private Sub Form_click（）

  m = InputBox（"please input m"） 

  n = InputBox（"please input n"）

  For i = m To 1 Step -1

    If n Mod i = 0 And m Mod i = 0 Then s = 1 :

 Exit For

  Next i

  If s = 1 Then print i

End Sub

A、2B、4C、6D、8

4、写出程序运行时单击窗体后，在窗体上出现的结果。

D

Private Sub Form_Click（）

Dim I As Single, x As Single, y As Single

Cls

For I = 0 To 2 * 3.1415927 Step 0.0001

    x = 2400 + 1000 * Sin（I）

    y = 1600 + 1000 * Cos（I）

    Line （2400, 1600）-（x, y）, RGB（255, 0, 0）

Next I

End Sub

A、转动一条长度为2400单位的红色直线，其轨迹形成一个圆

B、转动一条长度为1600单位的红色直线，其轨迹形成一个圆

C、转动一条长度为1500单位的红色直线，其轨迹形成一个圆

D、转动一条长度为1000单位的红色直线，其轨迹形成一个圆

5、【程序说明】

写出下列程序运行时，单击窗体后输入x=3，n=2窗体上的显示结果。

A

Private Function s（n%, x!

） As Single

    Dim i%, k%, t#, f#

    f = 0:

 k = x:

 t = 1

    For i = 2 To 2 * n Step 2

        t = t * i * （i - 1）

        f = f + k / t

        k = k * x * x

    Next i

    s = f

End Function

    Private Sub Form_Click（）

        Dim n%, x!

        x = InputBox（"x="）

        n = InputBox（"n="）

        Print "s="; Fix（s（n, x））

    End Sub

A、s=2 B、s=3 C、s=3.625 D、s=3.6

6、写出程序运行时连续3次单击Command1后，a1.dat文件的最终结果。

A

Dim a As Integer, y As Integer, x As  Integer

Private Sub Command1_Click（）

  Open " a1.dat" For Append As #1

  x = 1

  i=5

  Do Until x>i

    a = a + x:

 x = x + 5

  Loop

  y = y + a:

 Print #1, "y="; y, "a="; a

  Close #1

End Sub

Private Sub Form_Load（）

  Open " a1.dat" For Output As #1 :

 Close #1

End Sub

D、

y= 1     a= 1 

y= 3     a= 3 

y= 6     a= 6

C、

y= 1     a= 1 

y= 2     a= 2 

y= 3     a= 3

B、

y= 1     a= 1 

y= 1     a= 1 

y= 1     a= 1

A、

y= 1     a= 1 

y= 3     a= 2 

y= 6     a= 3

四、阅读题 

第1题：

【程序说明】

写出下列程序运行时，单击窗体后窗体上的显示结果。

D

Private Sub Form_Click（）

    Dim x As String, d As Integer, n As Integer, i As Integer, y As String

    x = "abcdefghijkl"

    d = Asc（"a"） - Asc（"A"）

    n = Len（x）

    For i = 1 To n Step 2

    y = y + Chr（Asc（Mid（x, i, 1）） - d）

    Next i

    Print "y="; y

End Sub

A、y=bdfhjlB、y=acegikC、y=BDFHJLD、y=ACEGIK

第2题：

【程序说明】

下列程序运行时，单击窗体3次，写出窗体上输出的内容。

A

Private Sub Form_Click（）

    Dim b As Integer

    Static a As Integer

    b = a + b

    a = a + b + 1

    Form1.Print "a="; a, "b="; b

End Sub

D、

a=1       b=1

a=3       b=2

a=7       b=4

C、

a=1       b=0

a=3       b=1

a=8       b=4

B、

a=1       b=0

a=1       b=0

a=1       b=0

A、

a=1       b=0

a=3       b=1

a=7       b=3

第3题：

请写出鼠标点击弹出菜单第二项后窗体上的显示结果。

B

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 = "您选择了第二项"

  print m

End Sub

Private Sub mnuChoice3_Click（）

  m = "您选择了第三项"

  print m

End Sub

A、您选择了第一项B、您选择了第二项C、您选择了第三项D、您选择了第四项

第4题：

写出程序运行时单击窗体后，在图片框上出现的结果。

C

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）

Picture1.Cls

For i = 0 To 2 * 3.1415927 Step 0.0001

    x = 100 * Cos（i）

    y = 100 * Sin（i）

    Picture1.Line （0, 0）-（x, y）, RGB（0, 0, 255）

Next i

End Sub

A、在图片框中画了100条蓝色直线，直线长度为100单位

B、在图片框中画了100条红色直线, 直线长度为100单位

C、 转动一条长度为100单位的蓝色直线，其轨迹形成一个图片框的内接圆

D、转动一条长度为100单位的红色直线，其轨迹形成一个图片框的内接圆

第5题：

写出程序运行时单击窗体后，文件a1.dat中的结果。

A

Private Sub Form_Click（）

  Dim i As Integer,f1 As Integer,f2 As Integer,f3 As Integer

  Open " a1.dat" For Output As #1

  f1 = 1:

 f2 = 2

  Print #1, "NO."; 1, f1 :

 Print #1, "NO."; 2, f2

  For i = 3 To 4

    f3 = f1 + f2 

    Print #1, "NO."; i, f3

    f1 = f2:

 f2 = f3

  Next i

  Close #1

End Sub

D、

NO. 1          1 

NO. 2          2 

NO. 3          3 

NO. 5          5

C、

NO. 1          1 

NO. 2          2 

NO. 3          3 

NO. 4          4

B、

NO. 1          1 

NO. 2          2 

NO. 3          3 

NO. 5          4

A、

NO. 1          1 

NO. 2          2 

NO. 3          3 

NO. 4          5

第6题：

运行时，若Text1.Text为空，在Text1获得输入焦点后，依次按下列按键：

"1"、"2"、"+"、"3"、"4"、"-"、"5"、"6"、回车键,请写出text1上的内容结果B

 Private Sub Text1_KeyPress（keyascii As Integer）

   If keyascii  Asc（"9"） Then

     keyascii = 0

   End If

 End Sub

A、+B、123456C、12034056D、以上答案都不对

　四、阅读题　

1：

请写出在Text1、Text2、Text3中依次输入3、1、2后，单击窗体时Label1的显示结果。

C

PrivateSubForm_Click（）

DimaAsSingle,bAsSingle

a=Text1.Text:

b=val（Text2.Text+text3.text）

Label1.Caption=Str（a*a+b*b）

EndSub

A、18B、9144C、153D、以上答案都不对

2：

请写出鼠标点击弹出菜单第一项后窗体上的显示结果。

A

PrivateSubForm_MouseDown（ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=2ThenPopupMenumnuPopup,10

EndSub

'mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名

PrivateSubmnuChoice1_Click（）

m="信息科学与工程学院"

printm

EndSub

PrivateSubmnuChoice2_Click（）

m="护理学院"

printm

EndSub

PrivateSubmnuChoice3_Click（）

m="材化学院"

printm

EndSub

A、信息科学与工程学院B、护理学院C、材化学院D、无显示

3：

写出程序运行时单击窗体后，在图片框上出现的结果。

B

PrivateSubForm_Load（）

Picture1.Width=Picture1.Height

EndSub

PrivateSubForm_Click（）

DimiAsSingle,xAsSingle,yAsSingle

Picture1.Scale（-100,100）-（100,-100）

Fori=0To2*3.1415926Step0.1*3.1415926

x=100*Cos（i）

y=100*Sin（i）

Picture1.Line（0,0）-（x,y）,RGB（255,0,0）

Nexti

EndSub

A、从图片框中心出发画了10条红色直线,直线长度为100单位

B、从图片框中心出发画了20条红色直线,直线长度为100单位，其轨迹形成一个圆。

C、转动一条长度为100单位的蓝色直线，其轨迹形成一个图片框的内接圆

D、转动一条长度为100单位的红色直线，其轨迹形成一个图片框的内接圆

4：

写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。

D

PrivateSubForm_Click（）

Dima（1to3）AsInteger,kAsInteger,iAsInteger,jAsInteger

Open"a1.dat"ForOutputAs#1

J=1

Fori=1To3:

j=i*j:

Print#1,j;:

Nexti

Close#1

Open"a1.dat"ForInputAs#1

k=0

DoWhileNotEOF

（1）

k=k+1:

Input#1,a（k）

Loop

Close#1

Fori=kTo1Step-1:

Form1.Printa（i）;:

Nexti

EndSub

B、

窗体：

126

文件：

621

D、

窗体：

621

文件：

126

C、

窗体126

文件：

126

A、

窗体：

621

文件：

621

5：

【程序说明】

写出下列程序运行时，输入年份3100，月份2后，单击窗体后窗体上的显示结果。

D

PrivateSubForm_Click（）

DimyAsInteger,mAsInteger,dAsinteger

y=InputBox（“输入年份”）

m=InputBox（“输入月份”）

SelectCasem

Case1,3,5,7,8,10,12

d=31

Case4,6,9,11

d=30

Case2

IfyMod4=0AndyMod100<>0OryMod400=0Then

d=29

Else

d=28

EndIf

Caseelse

d=0

EndSelect

Printy;”年”;m;”月有”;d;”天”

EndSub

A、3100年2月有31天

B、3100年2月有29天

C、3100年2月有30天

D、3100年2月有28天

6：

【程序说明】

写出下列程序运行时，单击窗体后窗体上的显示结果。

A

DimiAsInteger,jAsInteger,kAsInteger,hAsInteger

PrivateSubForm_Click（）

i=0:

j=1:

k=2

Callq（1,i）:

Printi;j;k,

Callq（i,k）:

Printi;j;k,

EndSub

PrivateSubp（i）

i=i+1:

Printi;j;k,

EndSub

PrivateSubq（ByValh,j）

Ifh=1ThenCallp（i）Elsej=j+1

EndSub

D、

112

122

312

322

C、

112

122

312

312

B、

112

112

312

312

A、

112

112

212

212

四、阅读题

第1题：

请写出在文本框中输入“456AbC”后窗体上的显示结果。

A

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

SelectCaseChr（KeyAscii）

Case"a"To"z"

PrintUcase（Chr（KeyAscii））;

Case"A"To"Z"

PrintLcase（Chr（KeyAscii））;

CaseElse

KeyAscii=0

EndSelect

EndSub

A、aBcB、456AbCC、456abCD、0

第2题：

请写出鼠标点击弹出菜单第一项后窗体上的显示结果。

A

PrivateSubForm_MouseDown（ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=2ThenPopupMenumnuPopup,10

EndSub

'mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名

PrivateSubmnuChoice1_Click（）

m="信息科学与工程学院"

printm

EndSub

PrivateSubmnuChoice2_Click（）

m="护理学院"

printm

EndSub

PrivateSubmnuChoice3_Click（）

m="材化学院"

printm

EndSub

A、信息科学与工程学院B、护理学院

C、材化学院D、无显示

第3题：

写出程序运行时单击窗体后，在图片框上出现的结果。

A

PrivateSubForm_Load（）

Picture1.Width=Picture1.Height

EndSub

PrivateSubForm_Click（）

DimiAsSingle,xAsSingle,yAsSingle

Picture1.Scale（-100,100）-（100,-100）

Fori=0To2*3.1415926Step0.2*3.1415926

x=100*Cos（i）

y=100*Sin（i）

Picture1.Line（0,0）-（x,y）,RGB（255,255,0）,B

Nexti

EndSub

A、

B、

C、

D、

第4题：

请写出程序运行时单击窗体后窗体上的内容。

B

PrivateSubForm_Click（）

DimnAsbyte,iAsbyte

Open"a1.dat"ForOutputAs#1

n=5

Fori=1Ton:

Print#1,i*2;:

Nexti

Close#1

Open"a1.dat"ForInputAs#1

Fori=1Ton

Input#1,a

IfiMod3=0ThenPrinta*2

Nexti

Close#1

EndSub

A、6B、12C、3D、24

第5题：

【程序说明】

写出下列程序运行时，输入8、9、3、0后，窗体上的显示结果。

D

PrivateSubForm_click（）

DimIAsInteger,sumAsInteger,mAsInteger

sum=0

Do

m=InputBox（"输入m"）

Ifm=0ThenExitDo

sum=sum+m

Loop

Printsum;

EndSub

A、21B、0C、17D、20

第6题：

【程序说明】

写出下列程序运行时，单击窗体后，窗体上的显示结果。

A

DimxAsInteger

PrivateSubForm_Load（）

x=2

EndSub

PrivateSubForm_Click（）

StaticaAsInteger

DimbAsInteger,yAsInteger

b=x^2

abcx,b

a=a+x

y=y+b

Printa;b;x;y

EndSub

Subabc（ByRefyAsInteger,ByValzAsInteger）

y=y+z

z=y-z

EndSub

A、6464