VB复习题及答案.pdf

《VB复习题及答案.pdf》由会员分享，可在线阅读，更多相关《VB复习题及答案.pdf（12页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第 1 页 共 12 页=第一章复习题=1、“面向对象程序设计”的英文缩写是（D）AOPP BPOP CPPO D OOP 2、Visual Basic 工程文件的扩展名是（B）Abmp Bvbp Cfrm Dbas 3、对象的性质和状态特征称为（C）A事件B方法C属性D类4、用来标识对象名称的属性是（C）ACaption BValue C Name DText 5、用来标识命令按钮标题的属性是（A）ACaption BValue C Name DText 6、要将当前窗体的标题文字设置为“MIS”，可以使用（A）语句来实现AMe.Caption=MIS BThis.Caption=MIS C

2、Me.Print MIS DThis.Print MIS=第二章复习题=8、数学式子10sin25o写成 VB 表达式是（D）A10Sin(25)B10*Sin(25)C10*Sin25 D10*Sin(25*3.14/180)9、把数值型数据转换为字符串型数据，需要使用（A）函数AStr B Val CAsc DChr 10、模拟方形骰子投掷的表达式是（B）AInt(Rnd*6)BInt(Rnd*6+1)CInt(Rnd*6-1)DInt(Rnd*7-1)11、表达式Right(“asdf”,2)+Ucase(“as”)的值为（D）Aasas BasAS C dfas D dfAS 12、语

3、句 Print Format(12.3456,”00000.00%”)的输出结果是（A）A01234.56%B1234.56%C12.34%D12.3400%=第三章复习题=13、为了使Label 控件能自动根据内容调整大小，应设置（A）属性为True AAutoSize BCaption CFont DBorder 14、用于设置或返回文本框内容的属性是（B）ACaption BText CName DValue 15、能够实现p 和 q 的值互换的语句是（C）Ap=q:q=p Bp=t:p=q:q=t Ct=p:p=q:q=t Dt=p:q=t:p=q 16、单击命令按钮Command1

4、后，交换文本框Text1 和 Text2 的内容：Private Sub Command1_Click()Dim c As String c=Text1.Text Text1.Text=Text2.Text Text2.Text=c End Sub 17、用文本框Text1 输入圆的半径R，单击命令按钮Command1 后，计算圆周长L 和圆面积S，分别用文本框Text2 和文本框Text3 输出结果，其中圆周率pi 定义为常量。Private Sub Command1_Click()第 2 页 共 12 页Dim R As Integer Dim L As Single Dim S As S

5、ingle Const PI=3.1415926 R=Text1.Text L=2*PI*R S=PI*R*R Text2.Text=L Text3.Text=S End Sub 18、用消息框函数MsgBox()显示变量a 与 b 之和。Private Sub Command1_Click()Dim a As Integer Dim b As Integer a=Val(InputBox(输入 a 的值)b=Val(InputBox(输入 b 的值)MsgBox(a=&a&vbCrLf&b=&b&vbCrLf&a+b=&a+b)End Sub=第四章复习题=19、当单选按钮被按下时，其Val

6、ue 属性为（C）A1 B2 CTrue D False 20、在多个选项中可以一个都不选、可以选择一个或者选择多个的情况，应选择（B）控件AOptionButton B CheckBox CFrame DCommandButton 21、写出下列程序段所对应的函数表达式Dim x As Integer x=Val(InputBox(enter an integer)Select Case x Case Is=0 y=0 Case Is=10 y=5+2*x Case Is=15 y=x-5 Case Else y=1 End Select 22、阅读以下程序，当输入79 时，写出程序的输出内

7、容151151051002500 xxxxxxy第 3 页 共 12 页Private Sub Command1_Click()Dim score As Integer Dim rank As Integer Dim grade As String Dim msg As String msg=输入成绩 score=Val(InputBox(msg)rank=score 10 If rank=10 Or rank=9 Then grade=Excellent ElseIf rank=8 Then grade=Good ElseIf rank=7 Then grade=Medium ElseIf

8、rank=6 Then grade=Pass Else grade=Failure End If Print Score=;score Print Grade=;grade End Sub=第五章复习题=23、写出程序运行结果Private Sub Command1_Click()For i=3 To 6 For j=1 To 8 Step 3 Print j;Next j Print Next i End Sub 24、写出程序运行结果Private Sub Command1_Click()Dim a As Integer Dim b As Integer a=1 第 4 页 共 12 页b

9、=0 Do b=b+a*a a=a+1 Loop While a a(j)Then t=a(j-1):a(j-1)=a(j):a(j)=t End If Next j Next i For i=1 To 10 Print a(i)Next i End Sub 39、数组 a 中保存 10 个评委对某参赛选手的评分，去掉1 个最高分和1 个最低分，求此选手的实际得分。Dim a(1 To 10)As Single 第 10 页 共 12 页Private Sub Command1_Click()List1.Clear Dim i As Integer For i=1 To 10 a(i)=Inp

10、utBox(请输入第&i&个评委分数。)List1.AddItem No.&Format(i,00)&:&a(i)Next i MsgBox 分数录入完毕，请单击计算得分！End Sub Private Sub Command2_Click()Dim max As Single Dim min As Single Dim i As Integer,sum As Single max=a(1):min=a(1):sum=a(1)For i=2 To 10 sum=sum+a(i)If a(i)max Then max=a(i)If a(i)min Then min=a(i)Next i Labe

11、l2.Caption=最后得分：&vbCrLf&(sum-max-min)/8 End Sub 40、编写程序，输出如下数组。18151296312108642654321APrivate Sub Command1_Click()Dim a(1 To 3,1 To 6)As Integer For i=1 To 3 For j=1 To 6 a(i,j)=i*j Print a(i,j);Next j Print Next i End Sub=第七章复习题=41、编写一个求最大公约数的函数过程，并在命令按钮的单击事件中调用此过程，求任意两个数的最大公约数。Private Sub Command

12、1_Click()Dim m As Integer Dim n As Integer 第 11 页 共 12 页m=Text1.Text n=Text2.Text Text3.Text=gcd(m,n)End Sub Public Function gcd(ByVal a As Integer,ByVal b As Integer)As Integer Dim r As Integer r=a Mod b Do While r 0 a=b:b=r:r=a Mod b Loop gcd=b End Function 42、编 写 一 个 求n！的 函 数 过 程，并 在 命 令 按 钮 的 单

13、击 事 件 中 调 用 此 过 程 求)!(!mnmnCmn的值。Dim m As Integer Dim n As Integer Private Sub Command1_Click()Do m=InputBox(Input M:)n=InputBox(Input N:)Loop Until n=m Print fact(n)/(fact(m)*fact(n-m)End Sub Public Function fact(ByVal m As Integer)As Double Dim i As Integer Dim result As Double result=1 For i=1 To

14、 m result=result*i Next i fact=result End Function 43、分别统计数组a 中奇数和偶数之和。Private Sub Command1_Click()Dim a(1 To 10)As Integer Dim i As Integer Dim C1 As Integer Dim C2 As Integer For i=1 To 10 a(i)=Int(Rnd*100)第 12 页 共 12 页Next i Call C12(a(),C1,C2)Print C1;C2 End Sub Public Sub C12(a()As Integer,x As Integer,y As Integer)Dim i As Integer For i=LBound(a)To UBound(a)If a(i)Mod 2=0 Then x=x+a(i)Else y=y+a(i)End If Next i End Sub=全部复习题到此结束=注：（1）考试题目全在这里（2）考试题型选择 10 x2=20程序阅读 10 x3=30完善程序 15x2=30编程 1x10+2x5=20