vb实验报告09上课6

试验报告（6）

院（系）：课程名称：日期：

Select Case x

Case 1, 3

Print "分支1"

Case Is > 4

Print "分支2"

Case Else

Print "else 分支'"

End Select

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是else 分支_。

3、下列语句正确的是( C )

A.If A ≠B Then Print″A不等于B″

B.If A < >B Then Printf″A不等于B″

C.If A < >B Then Print″A不等于B″

D.If A ≠B Print″A不等于B″

4、计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是( A )

A.If x>=y Then z=x:z=y

B.If x>=y Then z=x Else z=y

C.z=y:If x>=y Then z=x

D.If x<=y Then z=y Else z=x

5、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。

Private Sub Command1_Click()

x=Val(Text1.Text)

If__(x mod 4=1) and (x mod 5=2)__Then

Print x

Else

Text1.Text=″″

_Text1.Setfocus_________

End If

End Sub

6、下列程序的功能是：当x<50时，y=0.8x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。

Private Sub Command1_Click()

Dim x As Single

x=InputBox(″请输入x的值！″)

_Select Case x___

Case Is<50

y=0.8 * x

Case _Is<=100____

y=0.7 * x

Case Else______

Print″输入的数据出界！″

End Select

Print x,y

End Sub

7、输入矩形的长和宽，计算面积，要求对输入的长和宽进行合法性检查，调用Isnumeric函数。（如果非法输入则将对应文本框的内容清除，可以重新输入。）

注：在检测到是非法输入时，可尝试用msgbox过程给用户一个提示：msgbox“输入非法”，，“实验6”

1)界面设计

2）代码编辑

Private Sub Command1_Click()

If IsNumeric(Text1) = True Then

If IsNumeric(Text2) = True Then

Label3.Caption = "矩形面积为：" & Val(Text1) * Val(Text2) Else

MsgBox "Text2输入非法", , "实验6"

Text2 = ""

Text2.SetFocus

End If

Else

MsgBox "Text1输入非法", , "实验6"

Text1 = ""

Text1.SetFocus

End If

End Sub

8、已知学号由9个数码组成，如032343001，其中从左算起前2位表示年级，第5个数码表示学生类型，学生类型规定：2----博士生，3----硕士生，4----本科生，5----专科生；设计程序，从文本框(text1)中输入一个学号，单击按钮(command1)后在另外两个文本框中显示该生的年级(text2)及学生类型(text3)。

提示：

要用到字符串操作函数对学号（032343001），进行取字串，然后判断。

例如：

X=text1.text ‘ x中是学号字符串

第5个数码表示学生类型，则mid(x,5,1),将字符串中第五个字符取出，如果取出的字符是4----本科生，进行判断后在text3中显示

If mid(x,5,1)=4 then text3.text=”本科生”

1）界面设计

2）代码编辑

Private Sub Command1_Click()

Text2 = Mid(Text1, 2, 1)

a = Mid(Text1, 5, 1)

Select Case a