VB检验题必做部分.docxVIP

VB 必做测验及答案目录 实验 4 选择结构程序设计 ........................................................................2 ..................... 实验 6 循环结构程序设计..........................................................................9..................... 实验 7 数组..................................................................................1.6........................ 实验 9 常用控件...............................................................................20......................... 实验 4 选择结构程序设计 若整型变量a 的值为 2、b 的值为 3，则下列程序段执行后整型变量 c 的值为 。 If a5 the n If b4 then c=a-b Else c=b-a End if Elself b3 then c=a*b Else c=a mod b End if 2 -1 1 6 答案：A 2. 下列程序的执行结果为。 A=100:b=50 If ab Then a=a-b Else b=b+a End if Print a a) 50 b) 100 c) 200 d) 10 答案：A 以下程序输出 1 到 1000 之间所有的偶数之和，请补充完该程序。 Private Sub Comma nd_Click() Dim x As Double For I=0 To 1000 If The n x=x+l End If Next I Print x End Sub i Mod 2 = 0 x Mod 2 = 0 I Mod 2 0 答案：A x Mod 2 0 下列程序段的执行结果为 x=I nt(R nd+4) Select Case x Case 3 Print 优 秀 Case 4 Print 良 好 Case 5 Print 合 格 Case Else Print 不 合格 End Select 优秀 良好 合格 D ）不合格答案：B 5.  以下程序段的执行结果是 。 X=2:y=1 If x*y1 The n y=y-i Else y=-1 Print y-x0 End If Ture False -1 1 答案：B 设计两个 CheckBox ，—个显示粗体，一个显示斜体，通过对CheckBox 的选择，在一个文本框中显示相应效果的文本，完成下列程序。 Private Sub Form_Load() Check1.Caption= 显示粗体” Check2.Caption= 显示斜体” Text1.Text=Visual Basic 6.0 End Sub Private Sub Check1_Click() If Check1.Value =1 The n Text1.Fo ntBold=True Else Text1.Fo ntBold=False End If End Sub Private Sub Check2_Click() If Check2.Value=1 The n Text1. Fontltalic Else Text1. Fontltalic End If =True =False End Sub 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If ab Then d=a:a=b:b=d En dIf If ac Then d=a:a=c:c=d Endlf If Then d=b:b=c:c=d Endlf Print a,b,c 答案：bc 8. 中，错误的是（ 在下列关于Select Case的叙述 ） 选择一个答案 ￡ a. Case 10 To 100 表示判断Is是否介于 10 与 100 之间 b. Case abc 〃，‘ ABC 〃表示判断Is是否和abc 〃、 ABC 〃两个字 匕I 符串中的一个相同 -c. Case -7,0,100表示判断 Is是否等于字符串-7,0,100 〃 / d. Case ”X表示判断Is是否为大写字母X 下列程序的执行结果是（） X=5 Y=-20 If Not X0 The n X=Y-3 Else Y=X+3 Print X-Y;Y-X 选择一个答案