VB第四章选择结构测试题

1、高一第二学期VB测试题一、选择题(每题2分，共20分)1 在条件语句If x=1 Then y=2中，下列说法正确是A. x=1和y=2均为赋值语句B. x=1和y=2均为关系表达式C. x=1为关系表达式，y=2为赋值语句D. x=1为赋值语句，y=2为关系表达式2下面程序段运行后，显示的结果是oDim xIf x Then Print x Else Print x+1A. 1B. 0C.-1D.显示出错信息3运行下列程序段，显示的结果是ox=lnt(Rnd)+5Select Case xCase 5Print"优秀”Case 4Print"良好”Case 3Print&

2、quot;通过”Case ElsePrint"不通过"End SelectA. 优秀B.良好C.通过 D.不通过4执行如下程序段时，从键盘输入-5,输出的结果是 _x=-5s=Val(lnputBox("请输入 s 的值:")Select Case sCase ls>0y=x+1Case ls=Oy=x+2Case Elsey=x+3End SelectPrint x;yA. -5-2 B. -5-4C. -5-3D. -5-5Casec5、用Select Case语句选择|x|<=10情况的语句为:A. Not (-10 To 10) B.

3、 -10To 10C. Is Abs(x)>10 D. Is<100r>106、有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a<>3 Or b<>3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是()A) 16B) 3 C) 6 D) 87、有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a<>3 Or b<>3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+cA) 16B) 3C) 6D) 88

4、、执行下列程序，从键盘输入Private Sub Command 1_Click()10,运行结果:S=lnputBox("请输入一个数字：")Select Case SCase ls>0Print">0"Case ls>3Print">3"Case ls>5Print">5"End SelectEnd Sub(A)>0(B)>3(C)>5(D)>09、在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Textl,然后编写如下程序：Priva

5、te Sub Command 1_Click()t='假期的旅游路线：”a=lnputBox("请输入日期(131)")Select Case aCase ls<=0,ls>=31t=t+"有误”case ls<=10,20t=t+"北京”case ls<=20t=t+"大连”case ls<=31t=t+定州”End SelectPrint tEnd Sub程序运行，输入的20,这结果为(A) 假期的旅游路线：北京大连(B) 假期的旅游路线：大连北京(C) 假期的旅游路线：北京(D) 假期的旅游路线：大连

6、10要使变量x赋值为1-100间(含1,不含100)的一个随机整数，正确的语句是A. x=lnt(100*Rnd)B. x=lnt(101*Rnd)C. x=1+lnt(1 OO*Rnd)D. x=1+lnt(99*Rnd)二、填空题(每空5分，共80分)1. 若x=1,执行语句IfxThenx = 0Elsex=1,贝U x的值为2. VB程序的三种基本结构是：顺序、选择和 o3. 设 a=6,则执行 x=llf(a>5,-1,0)后，x 的值为。4. 执行下面的程序段后，b的值为oa=300: b=20: t=aa=b: b=t5下列程序的执行结果为°A="1&q

7、uot;B="2"A=Val(A)+Val(B)B=Val("12")If A<>B Then Print A-B Else Print B-A6下列程序的执行结果为oA=75If A>60 Then 1=1If A>70 Then l=2Print I8 下列程序的执行结果为A=75If A>90 then1=1Elself A>80 Thenl=2Elself A>70 Thenl=3Elself A>60 ThenI =4End IfPrint Ib的值为9 .执行下面的程序段后，a = 100b =

8、 20a = a + bb = a - b10.90分及以上的是优秀，80-89的是良好，70- 79的是一般，60-69的是及格，60分以下的是不及格Private Sub Command 1_Click()Dim x As Singlex = Val(Text1 .T ext)使用SelectCase语句Select Case CaseText2.Text =忧秀”Case Is >= 80Text2.Text = ”良好”Case Is > =70Text2.Text =冲等”Case Is >= 60Text2.Text =吸格"Case ElseText2

9、.Text =环及格”End Sub11、飞机票的标准价格是 1000元/张，1月或3 6月，每张打6折。9 11月每张打7折,7,8两个月每张打8折。其他月份每张打 9折。要求设计程序，输入月份和张数，能计算出 应付的金额。提示：select语句Case 7, 8z = 0.8Case Elsez = 0.9End SelectMsgBox "您共需要付款：” & 1000 * N * z,"结算”End Sub12、奇偶判断判断奇偶，被2整除余数是0的是偶数，否则的话就是奇数。文本框名称：text1 ,text2计算IPrivate Sub Comma nd1_Click()Dim int1 As In teger, i nt2 As In tegerint1 = Val(Text1.Text)Private Sub Comma nd1_Click()定义m,n,z为整型变量用 dimm = Val(Text1.Text)N = Val(Text2.Text)Select Case m'根据月份进行选择Case ' 1月或36月z = 0.6Case ' 9月11月z = 0.7int2 = inti Mod 2'整除2取余数7.8.9.IfThe nText2.Text =这是