VB程序设计模拟试卷3

VB模拟试卷3（一） 选择题（每题1分，共18分）正确答案写在括号里1、（A ）数学式子sin25写成VB表达式是A. sin25B. Sin（25）C. Sin（25*3.14/180）D. Sin(25)2、（ A ）逻辑表达式的 Not ab and 93 值为 A True B False C 表达式有错 D 条件不足3、（ C ）以下哪项变量名是合法的？ A. AB B. Global C. City_name D.15A4、（BD ）在数值变量类型中占4个字节的有哪些？ A. Byte类型 B.Long类型 C.Variant类型 D.Single类型5、（ C ）在VB设计界面中不能隐藏的窗口是A 工程窗口 B 属性窗口 C 立即窗口 D 窗体窗口6、（ B ）下列哪组语句可以将变量A、B值互换。 A A=B : B=A B A=A+B : B=A B: A=A B C A=C : C=B : B=A D A=(A+B)/2 : B=(A - B)/2 7、（A ）函数Left(“Hello”,2)的值为A. HeB. elC. loD. True8、（ A ）循环结构 For i=1 to 10 step 2:next 共执行几次 A 5 B 4 C 9 D 10 9、（ D ）函数Int(10*Rnd)是在哪个范围内的整数。 A.0，1B.1，10C.1，9D.0，910、（ C ）用情况选择语句Select Case X，实现|X| 5情况的语句为Case _A Not (-5 To 5)B 5 To -5 C Is 5 D ABS(X) 511、（D ）对象可以识别和响应的某些操行为称为 A属性 B方法 C继承 D事件12、（ D ）要声明一个长度为256个字符的定长字符串变量str，以下语句正确的是 ADim str as String BDim str as String(256) CDim str as String256 DDim str as String*25613、（ A ）用于获取字符串长度的函数是ALen() BLength() CStrLen() DLOF()15、（ AB ）以下程序代码能执行的是 A.If a=1 Then b=0 Else c=0 End ifB.If a = 1 Then ：B = 0 ： ElseIf c = 0 Then： d = 0C.If a = 1 Then B = 0 ElseIf c = 0 Then d = 0 End IfD.If a Then B = 0 ElseIf c = 0 d = 0 End If17、（ C ）Dim b1,b2 as boolean语句显式声明变量 A b1和b2都为布尔型变量B b1是整型，b2是布尔型变量C b1是变体型，b2是布尔型变量D b1和b2都为是变体型变量18、（ B ）若x是一个正实数，对x的第3位小数四舍五入的表达式是A. 0.01*Int(x+0.005)B. 0.01*Int(100*(x+0.005) C. 0.01*Int(100*(x+0.05)D. 0.01*Int(x+0.05)（二） 填空题(每空2分，共20分)1.msgbox函数的数据类型是。2. 写出 Print Not (3 8), (3 9) Or (5 = 0), (8 3) 语句执行后的结果:_ True True True_。3. 将数学式2x+sin250ex2+lnx写成VB表达式为：_2*X+SIN(25*3.14/180)=exp(x2+log(x)_4. 已知a=2,b=3,c=4,d=5，则表达式not a=c or 4*c=b2 and ba+c Xor (5 6)的值为_ True _。5. 若用变量x来存放数据765432.123456，应将x声明为_double(双精度_变量类型。6. 语句Option Explicit的作用是_要求所有使用的变量必须先声明然后才能使用。7.若X% = 3.14，则Len(X) 的值是_。8.执行下列循环语句，退出循环后的 I 值为_16_。 For I = 0 To 13.2 Step 3 I = I + 1 Next I Print I9. 执行mid (“You are a good student”,11,4) 的值为_ good_。10. X$=abc3456，a+str$(val(right$(X,4)的值为_a3456_。（三） 程序阅读题(每题5分，共25分)1程序运行时单击Command1三次,分别在text1中输入的数是1，15和20时，写出运行结果。Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text) 给出x的数值下面依据x 的范围判断y的计算方法，然后计算出y的数值If x = 10 Thenx= 1 y= 1 x= 15 y= 10 x= 20 y= 10 y = xElseIf x = 20 Then y = 10ElseIf x 50 Then s = s + i Else s = s - iPrint sEnd Sub3写出程序运行时单击窗体后，Form1上的输出结果。Private Sub Form_Click()Dim X As String l h f d bDim i As Integer , N As IntegerForm1.ClsX=”Abcdefghkl”N=Len(X)For i=N To 1 Step -2 Form1.Print space(20-I); Mid(X,i,1)Next iEnd Sub4设输入的数据分别为0,5,20,-5时，运行 结果为？Private Sub Command9_Click()x =val( InputBox(输入x)Select Case xy(x)= 0 y(x)= 62.5 y(x)= 20 y(x)= 4.75 Case 1, -51 To -3 y = x / 4 + 6 Case 2 To 13 y = x 3 / 2 Case Is = 20 y = x Case Else y = 0End SelectPrint y(x)=; yEnd Sub5下面的程序在立即窗口显示的运行结果为：Private Sub Command1_Click()Dim a%, b%a = 31 9 100 9 100b = 100次数 = 1Do a = a * a Debug.Print 次数, a, b 次数 = 次数 + 1Loop While a bDebug.Print a, bEnd Sub（四） 程序填空题 (每空2分，共16分)1. 下面为求任意三个数的最大数值的程序，请补充完整代码Private Sub Command1_Click()Dim a!, b!, c!, max!a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)先找a,b中最大值保存到maxIf a b Then _max=a_ Else _max=b_If _cmax_ Then max = cPrint a; b; c; 之中最大的数值为: ; maxEnd Sub2. If x = 30 and x=100Then y = -0.5 * x + 20End If 改写成select case 结构为：Select Case _ xCase _is =10_ y = xCase _20,25_ y = 10Case _30 to 100_ y = -0.5 * x + 20End Select3. 下面是求出12+22+32+n2的和的程序，n由用户输入，请补充完整Private Sub Command1_Click()Dim n As Integer, s As Integern =_inputbox(“输入n”)_i = 1Do While_I 0 result = 正数 Case Is 0 result = 负数 Case 0 result = 零End SelectMsgBox 输入的数据 & n & 为： & resultEnd Sub1.解法1:Private Sub Form_Click()Dim n As Integer, result As Stringn = InputBox(输入一个自然数)If n 0 Then result = 正数If n 0 Then result = 正数ElseIf n 0 Then result = 负数ElseIf n = 0 Then result = 零End IfMsgBox 输入的数据 & n & 为： & resultEnd Sub解法2Private Sub Command3_Click()Dim sushu As BooleanFor i = 10 To 200 sushu = True For j = 2 To Sqr(i) If i Mod j = 0 Then sushu