A. If sex= “男” And age<40 And InStr(duty, “教授”)>0 Then n=n+1
B. If sex= “男” And age<40 And duty=“教授” or duty= “副教授” Then n=n+1 C. If sex= “男” And age<40 And Right(duty,2)= “教授“ Then n=n+1
D. If sex= “男” And age<40 And duty= “教授”And duty= “副教授” Then n=n+1 7.下面程序段求两个数中的大数,()不正确。
A. Max1=IIf(x>y, x, y) B. If x>y Then Max1=x Else Max1=y C. Max1=Math.Max(x, y) C. If y>=x Then Max1=y Max=x
8.下面三个程序设计段计算学生外语附加分:外语6级(lang6)为“优秀”加15分,“通过” 加10分;外语4级(lang4)为“优秀”加8分,“通过”加4分。外语附加分只能计一次最高的分数。(A)能正确计算。 A. If lang6=“优秀” Then langf=15
ElseIf lang6=“合格” Then
langf=10
ElseIf lang4= “优秀” Then langf=8
B If lang4= “合格” Then
langf=4
ElseIf lang4=“优秀” Then ElseIf lang4=“合格”Then langf=4
End if
langf=8 ElseIf lang6=“合格” Then
langf=10
ElseIf lang6=“优秀” Then
langf=15 End if
C. If lang6=“优秀”Then langf=15
If lang6=“合格” Then langf=10 If lang4=“优秀” Then langf=8
If lang4= “合格” Then langf=4 langf=0 D. If lang4= “合格” Then langf=4
If lang4=“优秀” Then langf=8
If lang6=“合格” Then langf=10
If lang6=“优秀” Then langf=15
Else
langf=0
End if
9.下面语句执行后,变量w中的值是(B)。
w= Choose (Weekday(“2005,5,1”), “Red”, “Green” , “Blue”, “Yellow”)
A. Nothing B. “Red” C. “Green” D. “Yellow” 二.填空题
1.当C字符串变量中第三个字符是“C”时,利用MsgBox显示“Yes”,否则显示“No”。
If_________Then MsgBox(“yas”) Else MsgBox(“No”) Mid(c,3,1) = “C” 2. 程序运行后输出的结果是___________。
x=Int(Rnd)+3
If x^2>8 Then y=x^2+1 If x^2=9 Then y=x^2-2 If x^2<8 Then y=x^3 MsgBox(y)
3. 下面程序的功能是()。
Dim n%, m%
Sub TextBox1_KeyPress(......)Handles TextBox1.Keypress
If Asc(e.KeyChar)=13 Then
If IsNumeric(TextBox1.Text) Then Select Case Val(TextBox1.Text) Mod 2
Case 0
n=n+Val(TextBox1.Text) Case 1 m=m+Val(TextBox1.Text) End Select
End If
TextBox1.Text=”” TextBox1.Focus( ) End If
End Sub
4.下面的程序段是检查输入的算术表达式中圆括号是否配对,并显示相应的结果。本程序在文本框中输入表达式,边输入边统计,以输入回车符作为表达式输入结束,然后显示结果,如下图所示。
Dim count1 %
Sub TextBox1_KeyPress( ?????)Handles TextBox1.KeyPress If__________=“(”Then
count1+1
ElseIf ________=“)” Then count1=_________ End If
If Asc(e.KeyChar)=13 Then
If_________ Then
MsgBox(“左右括号配对”) ElseIf count1>0 Then MsgBox(__________)
Else
MsgBox(“右括号多于左括号”&count1& “个”) End If Exit Sub End If
End Sub <注意>
该题中统计括号个数的变量count1若在过程内声明,程序会产生什么结果?
5.输入若干个字符,统计有多少个元音字母,有多少个其他字母,直到按Enter键结束,显示结果,大、小写不
区分。其中Count Y中放元音字母个数,Count C中放其他字符数。 Dim CountY% , CountC%
Sub TextBox1_KeyPress (?????) Handles TextBox1.KeyPress Dim c As Char
c=________
If “A”<=c And c<= “Z”Then Select Case_________ Case_________
CountY=CountY+1
Case Else
CountC=CountC+1
End Select End If
If ______ __ Then
MsgBox(“元音字母有”& CountY & “个”) MsgBox(“其他字母有” & CountC & “个”) End If End Sub
6. 用If语句,Select Case语句两种计算方法计算分段函数
x^2+3x+2
当x>20 当10<=x<=20 当x<10
y= sqrt(3x)-2 1/2+|x|
Sub Button1_Click(....) Handles Button1.Click Dim x! , y!
x=Val(TextBox1.Text) If________ Then
y=x*x+3*x+2
ElseIf_________ Then y=1/2+Math.Abs(x) Else
y=Math.Sqrt(3*x)-2 End If
MsgBox(“y=”& y) End Sub
Sub Button1_Click(....) Handles Button1.Click x=Val(TextBox1.Text)
Select Case x Case__________ y=x*x+3*x+2 Case__________ y=1/2+Math.Abs(x) Case Else
y=Math.Sqrt(3*x)-2 End Select MsgBox(“y=”& y) End Sub
7. 输入三角形的三边a、b、c的值,根据其数值,判断能否构成三角形。若能,还要显示三角形的性质:等边三
角形、等腰三角形、直角三角形、任意三角形。 Sub Button1_Click(....) Handles Button3.Click Dim x%, y%, z%
x= Val(InputBox(“input x”)) y= Val(InputBox(“input x”)) z= Val(InputBox(“input x”)) If__________ Then Msg(“能构成三角形”) If_________ Then
Msg(“是等边三角形” ElseIf ________ Then
Msg(“是等腰三角形”)
ElseIf Math.Sqrt(x*x+y*y)=z Or Math.Sqrt(y*y+z*z)=x Or Math.Sqrt(x*x+z*z)=y Then
Msg(“是直角三角形”)
Else _________
End If
Else
MsgBox (“不能构成三角形”)
End If End Sub
8.输入一个年份,判断它是否为闰年,并显示是否是闰年的有关信息。判断闰年的条件是:年份能被4整除但不能被100整除,或能被400整除。同时请用日期型变量的IsLeepYear成员来验证。 Sub Button1_Click(....) Handles Button3.Click Dim d As Date
d=Now If_________ Or d.year Mod 400=0 Then MsgBox(d.Year & “是闰年”) Else
MsgBox(d.Year & “是平年”) End If If d.IsLeepYear(________) Then MsgBox(d.Year & “是闰年”) Else
MsgBox(D.Year & “是平年”) End If End Sub
第四章 循环结构
一.选择题
相关推荐: