if语句习题

1、下列程序运行后，如输入为5，则输出

结果为( )

x =val(text1.text)

If x ^ 2 = 25 Then y = x

If x ^ 2 < 20 Then y = 1 / x

If x ^ 2 > 20 Then y = x ^ 2 + 1

Print y

A ．25 B．0.2

C．26 D．5

2、下面程序的执行结果是（）

x = Sqr(2) \ 2 + Rnd(2) \ 2

y = Sqr(3) \ 3 + Rnd(3) \ 3

If x > y Then

Print "x>y"

ElseIf x = y Then

Print "x=y"

Else

Print "x

End If

A．x＞y B．x＝y

C．x＜y D．以上都不对

3、下面程序的执行结果是（）

x = 2

y = 1

If x * y < 1 Then y = y - 1 Else y = -1 Print y - x > 0

A ．-1 B．False

C．True D．1

4、以下是窗体的Click事件过程及其程序代码：

Private Sub Form_Click()

Dim x As Integer, a As Integer , b As Integer, c As Integer

Dim b1 As Boolean, b2 As Boolean

x=10:a=1:b=2:b1=-5:b2=0

If a

If b<>3 Then

If Not b1 Then

X=-10

Else

If b2Then x=-30

x=-50

End if

End if

End if

Print x

End Sub

在程序运行过程中，单击窗体时，程序的输出结果是()

(A) –50 (B) –30 (C) –10 (D) 10

5、以下是窗体的Click事件过程及其程序代码：

Private Sub Fot_Click()

Dim y As Integer,l As Integer,s As String

s=”Between 2050 And 3000”

y=Val(Mid(s,9,4))

If y Mod 400=0 Or (y Mod 100=0 And y Mod 4<>0) Then

L=1

Else

l=-1

End If

Print l

End Sub

在程序运行过程中，单击窗体时，程序的输出结果是()

(A) –1 (B) 1 (C) 0 (D) Null

6、以下程序段等价的语句是()

if x=1 Then

y=2

Else

If x=2 Then

y=3

Else

y=4

End If

End if

(A) If x=1 Then y=2 Else if x=2 Then y=3 Else y=4

(B) If x=1 Then y=2 ElseIf x=2 Then y=3 Else y=4

(C) If x=1 Then y=2 Else If x=2 Then y=3 Else y=4 End if

(D) If x=1 Then y=2 Else if x=2: Then y=3 Else y=4

7、有如下VB程序段：该程序段运行后，在文本框Text1上显示的是____________。

a = 10

b = 6

c = 5

If a + b > c And b + c > a And c + a > b Then Text1.text = "YES"

Else

Text1.text = "NO"

End If

8、有如下VB程序段：该程序段运行后，在文本框Text1上显示的是____________。m = 160

If m <= 100 Then

Text1.text = "不打折"

ElseIf m > 100 And m <= 150 Then

Text1.text = "9.5折"

Else

Text1.text = "9折"

End If

9、有如下VB程序段：该程序段运行后，在文本框Text1上显示的是____________。 t = 130 h = 170

b = (h - 100) * 2

If t > b Then

Text1.text="超标" ‘显示"超标"

Else

Text1.text="正常" ‘显示"正常"

End If

10、下列程序的功能是利用随机函数模拟投币，方法是每次随机产生一个0或1的整数，相当于一次投币的结果，1代表正面，0代表反面，在窗体上有三个文本框，名称分别是Text1、Text2、Text3，用于显示用户输入的投币次数、出现正面的次数和出现反面的次数，程序运行后，在文本框Text1中输入投币次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面和反面的次数，并显示结果，以下是实现上述功能的程序，请在横线处填入适当的内容。Private Sub Command1_Click()

Randomize

n = Int(Val(Text1.Text))

n1 = 0

n2 = 0

For i = 1 To ①

r = Int(Rnd * 2)

If ②Then

n1 = n1 + 1

Else

n2 = n2 + 1

End If

Next i

Text2.Text = str(n1)

Text3.Text = ③

End Sub

11、下列程序完成求三个数中的最大值和最小值，请在横线处填入适当的内容。

x = Val(text1.text)

y = Val(text2.text)

z = Val(text3.text)

m = x

n = x

If y >①Then m = y

If y <②Then n = y

If ③Then m = z

If ④Then n = z

Print "最大数为："; m

Print "最小数为："; n

12、体质指数（BMI）是目前国际上常用的衡量人体胖瘦程度以及是否健康的一个标准。其计算公式为：

体质指数(BMI)=体重(Kg)/(身高*身高(M)) 当指数18.5＜BMI≤25为健康

下列VB程序是用来计算BMI体质指数的，其中Texw文本框用于输入体重，Texh文本框用于输入身高，Text3文本框用于输出结果，请将程序补充完整

Dim w as single ‘变量w中存放体重

Dim h as single ‘变量h中存放身高

‘变量bmi中存放体质指数

w = Val(Txtw.Text) ‘输入体重

h = V al(Txth.Text) ‘输入身高

BMI =

If Then

Text3.Text = "健康"

Text3.Text = "不健康"

End If