VB程序设计模拟考试

1、VB程序设计模拟考试作者:日期:个人收集整理，勿做商业用途VB程序设计模块试卷、选择题（20%）（每小题1分，共20分）1、下列不属于对象的基本特征的是 A、属性B、方法C、函数D、事件2、工程文件的扩展名为。A、 .frxB、.basC、.vbpD、.frm3、下列选项中不属于事件的是A、DblclickB、 LoadC、ShowD、Keyup4、在VB程序中，调用对象方法的一般格式是 A、方法.对象名B、对象名方法C、对象名方法名参数D、方法名5、在VB中，所有窗体和控件都必须具有的属性是。A、NameB、FontC、Capti onD、Text6、下列变量声明错误的是。A、Dim i A

2、s IntegerB、Private j As In tegerC、Static b As BooleanD、Const m As In teger7、VB 代码通常是 一仃一句，一句一仃，但也可以“一行多句”。若要将多句写到一行上，语句间须用符号分隔。A、_B、：C、&D、8、表达式3 + 8 5 - 3 A 2 + 7 Mod 9的值是。A、2.6B、2C、5.6D、59、判断变量 m、n均不为0的逻辑表达式为。A、m * n <> 0B、m * n = 0C、m <> 0 Or n <> 0D、m * n != 010、可以同时删除字符串前导和

3、尾随空格符的函数是。A、LTrimB、RTrimC、TrimD、Mid11、语句Print 5*5 ”的执行结果是。A、25B、 5*5 ”C、5*5D、出现错误提示12、执行以下程序段后，窗体上输出的内容是 Dim Str1 As String, Str2 As StringStr1 = "Visual Basic Programi ng"Str2 = "Quick"Print Str2 & LCase(Mid(Str1, 7, 6) & Right(Str1, 11)A、Visual basic Programi ngB、Quick

4、basic Programi ngC、quick basic program ingD、Quick BASIC Programi ng13、执行以下语句，显示的消息对话框的标题是 。MsgBox "Hello World!", vbOKOnly + vblnformation, "Hello"A、Hello World!B、vbOKOnlyC、vblnformationD、HelloB、m = (a + b + Abs(a - b) / 2 D、If a < b Then14、已给整型变量 a、b赋初值，现需将a、b中较大值赋给整型变量m,以下程序

5、正确的是A、 If a > b Then m = a Else m = b End IfC、 If a > b Thenm =aElsem =bEnd IfD、25 11m = aIf a < b The nm = bEnd IfEnd If15、 执行下列程序后，窗体上输出的内容是 。Dim s As In teger, i As In tegers = 0For i = 1 To 10 Step 2s = s + iNextPrint s; iA、55 10B、55 11C、25 1016、若S的初值是7,则下列循环语句的循环次数为 Do Un til S > 13

6、S = S + 3LoopA、0B、1C、2D、317、 在用Dim X(2, 3 To 9) As Integer声明的数组中，不包括下列哪一个元素？ 。A、X(0, 3)B、X(2, 9)C、X(1,8)D、X(1, 10)18、 Print语句的一个输出表达式为 ，则输出包括日期、时间信息。C、Time。D、NowC、TopD、Positi on属性。C、WidthD、RightA、DateB、Month19、 下列哪个属性是用来表示各控件的位置的_A、WidthB、Name20、改变控件在窗体中的上下位置，应修改该控件的A、TopB、Left、填空(每小题2分，共20分)1、 改变控件

7、在窗体中的左右位置，应修改该控件的 属性。2、 在打开某窗体时，初始化该窗体中的各控件，应选用 事件。3、 语句"dim c as”定义的变量 C，可用于存放控件的Caption属性。4、 声明单精度常量 PI代表3.14159的语句是 。5、 数学表达式“一(a3 b)x Sin (36°) ”相应的VB表达式是。6、 用随机函数产生一个两位整数的Visual Basic表达式。7、若变量X、Y、A和B的值分别是5、-3.6、7.8、-5.9，则表达式：(X + Y) < (A + B) And Not Y < B ，值是。8、 用Dim Y(-3 To 6)

8、 As Integer语句定义的数组包含有 个元素。9、 声明动态数组的语句是 语句.10、 当调用过程时，实参向形参传递的规则有按值传递和 。三、程序填空题(每空格2分，共20分)1、 【程序说明】以下程序用以计算并输出1、2、3、4、5的阶乘。Private Sub Form_Click()Dim i As In tegerFor i = 1 To 5PrintNextEnd SubFunction Fact(n As In teger) As In tegerDim i As In tegerFor i = 1 To Fact = Fact * iNextEnd Function2、【程

9、序说明】编写一个程序，单击窗体后，显示的界面如下：冠 Form 1Private Sub Form_Click()*常寓*Dim i As In teger, j As In tegerFor i = 1 To 5For j = 1 To_卩和t "*"Next jprintNext iEnd SubA中,3、 【程序说明】以下程序产生30个两位随机正整数，并按从小到大的顺序存入数组 再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。Private Sub Form_Click()Dim A(30) As Byte, i As Byte, j As Byte, M As

10、 ByteFor i = 1 To 30A(i)=Next iFor i = 1 To 29For j = i + 1 To 29If A(i) > A(j) The nM = A(i):A(j) = MEnd IfNext j, iFor i = 1 To 30IfThen Print A(i);Next iEnd Sub4、【程序说明】下列程序判断一个大于1的整数是否为素数。Private Sub Form_Click()Dim N As In teger, i As In tegerN = Val(InputBox(" 请输入 N 的值：")If N <

11、2 Then Print N;"不是素数”If N = 2 Or N = 3 The nPrint N;"是素数”ElseFor i = 2 To Sqr(N)IfThen Exit ForNextIfThe nPrint N;"是素数”ElsePrint N;"不是素数”End IfEnd IfEnd Sub四、程序阅读题(每小题5分，共20分)1、【程序说明】请写出单击窗体后，窗体上的显示结果。Private Sub Form_Click()Print "AAA" Space(5); "BBB" 123; 45

12、6End Sub2、 【程序说明】请写出程序运行时连续单击窗体3次，窗体上的显示结果。Dim A As In tegerPrivate Sub Form_Click()Static B As In tegerDim C As In tegerA = A + 1B = B + 1C = C + 1Prin t "A=" A, "B=" B, "C=" CEnd Sub3、【程序说明】请写出单击窗体后，窗体上的显示结果。Private Sub Form_Click()Dim A(5) As In teger, N As In teger,

13、 i As In tegerA(0) = 3: A(1) = 9: A(2) = 10: A(3) = 6: A(4) = 2: A(5) = 7i = 0DoN = A(I)6 / 7i = i + 1Loop Un til N > 5 And N < 8 Or i > 5Print N, iEnd Sub4、【程序说明】请写出单击窗体后，窗体上的显示结果。Dim str1 As Stri ngPrivate Sub Form_Click()str1 = "Form"Call S1Print str1Call S2Print str1End SubSub S1()Dim str1 As Stri ngstr1 = "S1"Print str1End SubSub S2()str1 = "S2"Print str1End Sub五、程序设计题(每小题10分，共20分)1、【程序说明】试编写符号函数Sgn(X):当X>0时，Sgn(X)的值为1;当X=0时，Sgn(X)的值为0 ;当X<0时，Sgn(X)的值为-1。Public Function