基础训练五 1.设a=2,b=3,c=4,d=5,计算下列表达式的值： (1)a.+4>b and bc and c2*bora=c and b○corc>d的值是_。 (4)a2=c and b+2=dorc=7,-1,-9)后，y的值为：一。 3.设有函数： -1 x≥1 10 x=1,-1,0) b)Ifx>=1 Then y=-1 else y=0 c)Ifx>=1 Then d)Ifx>=1 Then y=-1 y=-1 Elselfx<1 then y=0 else y=-1 Else End If y=0 End If 4. 已知某人出生的年、月、日分别存放在变量y、m和d中，当前的年、月、日分别存 放在变量yy、mm和dd中，其实足年龄存放在变量age中，则以下可以正确计算实足 年龄的程序段是： a)age-yy-y b)age=yy-y Ifmm<m Then Ifmm<m Then Age=age-1 Age=age-1 End If EndIf If mm=m and dd<d Then If dd<d Then Age=age-1 Age=age-1 End If End If c)ageyy-y d)age=yy-y Ifmm<m Then Ifmm<m or dd<d Then Age=age-1 Age=age-1 Elselfdd<d Then End If Age-age-1 End If 5.当执行下列语句后，x和y的值分别为： X=-5:k=9 Select Case k Case Is-3 y=2*x
基础训练五 1. 设 a=2,b=3,c=4,d=5，计算下列表达式的值： (1）a.+4>b and b<>c or c>d 的值是 。 （2）not a=c and b<>c and c2*b or a=c and b<>c or c>d 的值是 。 （4）a^2=c and b+2=d or c=7,-1,-9)后，y 的值为： 。 3. 设有函数： − = 0 1 1 1 x x y 以下能正确计算 y 值的语句是： 。 a) y=IIf(x>=1,-1,0) b) If x>=1 Then y=-1 else y=0 c) If x>=1 Then y=-1 Else y=0 End If d) If x>=1 Then y=-1 ElseIf x3 y=2*x
Case Is>=9 y=2*x Case Else y=2*x End Select 6.当x=8时，执行下列语句后，y的值为l00的Select Case语句是： a)Select Case x b)Select Case x Case 10to-10 Case Is>8 y=100 y=100 End Select End Select c)Select Case x d)Select Case x Case Is>10,2,3 to 10 Case 1,3,Is>5 y=100 y=100 End Select End Select 7.设a=2,b=3,c=4,执行下列语句后，y的值为0的If语句是： a)Ifa>b Then b)Ifac Then y=0 else y=5 d)If ac,0,5) End If 8.己知a=2,b=3,写出下列表达式的值。 (1)"Then"◇"then"的值是： (2)"3"+"1"的值是： (3)"3"+a的值是： (4)"b="&b的值是： (5)"a+b="&(a+b)的值是： 9.己知a=l,s=",str="Let's study from ABC",填写执行下列语句的各变量的值： (1)a=str.length,a的值是： (2)a=str.IndexOf("k"),a的值是： (3)a=str.LastIndexOf("s"),a的值是： (4)s=str.subString(6,5),s的值是： (5)s=str.subString(6),s的值是： (6)表达式Char.isUpper(st,7)的值是： (7)表达式Char.isLetter(str,l8)的值是： (8)s=str.replace("_",""),s的值是： 10.要使循环语句“Fork=mto-2Step-2”循环执行10次，m的值是： 11.执行下列程序段后，s的值是：一· S=1 For i 1 To 30 Step 4 s=s i\3 Next 12.执行下列程序段后，s的值是：
Case Is>=9 y=2*x Case Else y=2*x End Select 6. 当 x=8 时，执行下列语句后，y 的值为 100 的 Select Case 语句是： 。 a) Select Case x Case 10 to -10 y=100 End Select b) Select Case x Case Is >8 y=100 End Select c) Select Case x Case Is >10,2,3 to 10 y=100 End Select d) Select Case x Case 1,3,Is>5 y=100 End Select 7. 设 a=2，b=3，c=4，执行下列语句后，y 的值为 0 的 If 语句是： 。 a) If a>b Then If b=c Then y=5 Else y=0 End If b) If ac Then y=0 else y=5 d ) If ac,0,5) End If 8. 已知 a=2，b=3，写出下列表达式的值。 （1） "Then" <> "then" 的值是： 。 （2） "3"+ "1"的值是： 。 （3） "3"+ a 的值是： 。 （4） "b=" & b 的值是： 。 （5） "a+b=" & (a+b) 的值是： 。 9. 已知 a=1，s=""，str= "Let’s_study_from_ABC"，填写执行下列语句的各变量的值： （1）a=str.length ，a 的值是： 。 （2）a=str.IndexOf("k")，a 的值是： 。 （3）a=str.LastIndexOf("s")，a 的值是： 。 （4）s=str.subString(6,5) ，s 的值是： 。 （5）s=str.subString(6) ，s 的值是： 。 （6）表达式 Char.isUpper(str,7)的值是： 。 （7）表达式 Char.isLetter(str,18)的值是： 。 （8）s=str.replace("_"," ") ，s 的值是： 。 10. 要使循环语句“For k= m to -2 Step -2”循环执行 10 次，m 的值是： 。 11. 执行下列程序段后，s 的值是： 。 s = 1 For i = 1 To 30 Step 4 s = s + i \ 3 Next 12. 执行下列程序段后，s 的值是：
Dim s,i As Integer S=0 For i 2 To 20 If i Mod 3 =0 Then If s>20 Then Exit For Else s =s i End If Next 13.对于以下For语句，函数MsgBox被执行的次数是： For i 1 To 5 Step 2 For j=10 To 0 Step -3 MsgBox("i=”&i&”j=”&j) Next Next 14.下列循环结构能正常结束的是：一 a)i=5 b)i=5 Do Until i <0 Do Until i =9 i=i+1 i=i+3 Loop Loop c)i=5 d)i=5 Do Until i 10 Do Until i =0 i=i+3 i=i-2 Loop Loop 15.执行下列程序段后，s的值是： s=1:j=1 Do While j <=5 s=s j:j=j+1 Loop 16.执行下列程序段后，s的值是： For i 1 To 3 s=2 For j=3 To 0 Step -1 s=3 For k =2 To 8 Step 2 S=s+4 Next Next Next 17.执行下列程序段后，s的值是： i=1 s=1 Do While i <10 S=S米2 i=i+2 Loop
Dim s, i As Integer s = 0 For i = 2 To 20 If i Mod 3 = 0 Then If s > 20 Then Exit For Else s = s + i End If Next 13. 对于以下 For 语句，函数 MsgBox 被执行的次数是： 。 For i = 1 To 5 Step 2 For j = 10 To 0 Step -3 MsgBox("i=" & i & " j=" & j) Next Next 14. 下列循环结构能正常结束的是： 。 a) i = 5 Do Until i 10 i = i + 3 Loop d) i = 5 Do Until i = 0 i = i - 2 Loop 15. 执行下列程序段后，s 的值是： 。 s = 1 : j = 1 Do While j <= 5 s = s * j : j = j + 1 Loop 16. 执行下列程序段后，s 的值是： 。 For i = 1 To 3 s = 2 For j = 3 To 0 Step -1 s = 3 For k = 2 To 8 Step 2 s = s + 4 Next Next Next 17. 执行下列程序段后，s 的值是： 。 i = 1 s = 1 Do While i <= 10 s = s * 2 i = i + 2 Loop
18.执行下列程序段后，s的值是： s=0 i=1 Do While i <3 For j=1 To 5 If j Mod 2=0Then s=s+1 End If s=s+1 Next i=i+2 Loop 19.执行下列程序段后，名为txtNum的文本框的显示文本是： Dim i%,count%,str$ i=1 count =0 str ="m For i=1 To 100 If i Mod 3 =0 Then If count =4 Then Exit For Else str=str&"*”&i count count +1 End If End If Next txtNum.Text str 20.有下列程序，当Button1 Click事件被执行3次以后，名为Labell的标签控件的显示文 本是： Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim i,m,n As Integer Static k As Integer k=k+2 i=i+2 mm i n=n +k Labell.Text "m="&m&"n="&n End Sub
18. 执行下列程序段后，s 的值是： 。 s = 0 i = 1 Do While i <= 3 For j = 1 To 5 If j Mod 2 = 0 Then s = s + 1 End If s = s + 1 Next i = i + 2 Loop 19. 执行下列程序段后，名为 txtNum 的文本框的显示文本是： 。 Dim i%, count%, str$ i = 1 : count = 0 : str = "" For i = 1 To 100 If i Mod 3 = 0 Then If count = 4 Then Exit For Else str = str & "**" & i count = count + 1 End If End If Next txtNum.Text = str 20. 有下列程序，当 Button1_Click 事件被执行 3 次以后，名为 Label1 的标签控件的显示文 本是： 。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim i, m, n As Integer Static k As Integer k = k + 2 i = i + 2 m = m + i n = n + k Label1.Text = "m=" & m & " n=" & n End Sub