VB[1].net习题集(2)

Dim x%

x=Int(Rnd)+5 Select Case x Case 5

MsgBox(“优秀”) Case 4

MsgBox(“良好”)

Case 3

MsgBox(“通过”) Case Else

MsgBox(“不通过”) End Select

A. 优秀 B. 良好 C. 通过 D. 不通过

6.下面If 语句统计满足性别（sex）男、职称（duty）为副教授以上、年龄（age）小于40岁条件的人数，正确的语句是（）。

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. If lang6=“优秀” Then langf=15

ElseIf lang6=“合格” Then langf=10

ElseIf lang4= “优秀” Then langf=8

ElseIf lang4=“合格”Then langf=4

End if

B If lang4= “合格” Then langf=4

ElseIf lang4=“优秀” Then 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中的值是（）。

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”) 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

y= sqrt(3x)-2 当10<=x<=20 1/2+|x| 当x<10

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

第四章 循环结构

一.选择题

1． 以下（）是正确的For...Next结构。

A. For x=1 To Step 10 ...

Next x

B. For x=3 To -3 Step -3 ... Next x

C. For x=1 To 10 re:... Next x

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB[1].net习题集(2)在线全文阅读。