VB习题4案.docVIP

习题四(控制结构) 一、选择题 1．C 2.A 3.B 4.D 5.C 6.A 7.B 8.B 9.A 二、填空题 4．0 三、简答题 1. 写出数学式|x|2.5×10-2对应的Visual Basic表达式。 答案： x2.5e-2 and x-2.5e-2 2. 逻辑运算符And、Or和Not的优先级最高的是哪一个。 答案：Not 3. 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果： (1) WX And Y=Z OR XY (2) XZ Or W=Y AND YX (3) Not (WY And X=Z) (4) Not (YX Or W*3Z) 答案 (1) True (2) True (3) True (4) False 4. 写出下列十进制整数逻辑运算的结果： (1) X = 23 And 14 (2) X = 23 Or 14 (3) X = -1 And 19 (4) X = -1 Or 10 (5) X = Not -1 答案 (1) 6 (2) 31 (3) 19 (4) -1 (5) 0 四、编程题 1. 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。 答案 设计界面如图 程序代码如下 Private Sub Form_Click() x = 5: y = 6 t = x: x = y: y = t Form1.Print x=; x, y=; y End Sub Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print x = 5, y = 6 Form1.Print 单击窗体交换x,y的值 End Sub 2. 征兵的条件是：男性18～20岁，1.65米以上；女性16～18岁，1.60米以上。编写程序，从键盘输入一个人的数据时，判断是否符合征兵的条件。 答案 设计界面如图 程序代码如下 Private Sub Command1_Click() age = Val(Text1.Text) h = Val(Text2.Text) If Option1.Value = True Then If age = 18 And age = 20 And h = 1.65 Then Label4.Caption = 合格 Else Label4.Caption = 不合格 End If Else If age = 16 And age = 18 And h = 1.6 Then Label4.Caption = 合格 Else Label4.Caption = 不合格 End If End If End Sub 3．编写程序，计算下面表达式的值 （1）1+1×3+1×3×5+……+1×3×……(2N+1) 答案 设计界面如图 程序代码如下 Private Sub Command1_Click() n = Val(InputBox(请输入N值)) Sum = 1 term = 1 For k = 3 To 2 * n + 1 Step 2 term = term * k Sum = Sum + term Next k Form1.Print 1+1×3+1×3×5+……+1×3×……(2N+1)=; Sum End Sub Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print 计算1+1×3+1×3×5+……+1×3×……(2N+1) End Sub 计算表达式补充：(2)-(5) （2）1!+3!+5!+……+(2N+1)! 答案 设计界面如图 程序代码如下 Private Sub Command1_Click() n = Val(InputBox(请输入N值)) Sum = 1 term = 1 For k = 3 To 2 * n + 1 Step 2 term = term * (k - 1) * k Sum = Sum + term Next k Form1.Pr