VB操作题选择结构操作题本

VB7—选择结构操作题

一、操作题，每题10分，9题共90分

【第1题】

打开“Z:\50\工程1.vbp”，完善程序并保存。

实现功能：在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。操作要求：

（1）在窗体中加载“CommandButton”控件，命名为“Command1”并设置该控件“Caption”属性值为“判断”；

（2）完善程序，执行command1_click事件，判断出结果，如果能搭成三角形则在文本框text4中输出“OK”，否则输出“NO”。

Private Sub Command1_Click()

Dim a, b, c As ①

Let a = Val(Text1.Text)

Let b = Val(Text2.Text)

Let c = Val(Text3.Text)

If (a + b > c) And (a + c > b) And (b + c > a) Then

Let Text4.Text = "OK"

Else

Let Text4.Text = "NO"

②

End Sub

【第2题】

打开文件“考生文件夹\108\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，则将该数据输出在窗体上。

Private Sub Command1_Click()

Dim x As Integer

x = Val(①)

If x Mod 3 = 2 Then

If ② = 3 Then Print ③

End If

End If

End Sub

【第3题】

打开“Z:\13\工程1.vbp”，完善Command1_Click事件代码并保存。。

实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。

Private Sub Command1_Click()

Dim a, b, c, max As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If a > b Then max = a Else ①

If c > max Then ②

Label3.Caption = CStr(③)

End Sub

【第4题】

打开文件“考生文件夹\418\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：输入不同的飞船速度后，判断出它的飞行状况，将结果输出到Label1中。

在“神舟八号”飞行程序中，其飞行状况与飞行速

Dim v As Single

v = Val(InputBox("请输入飞船速度的值"))

Select Case v

Case Is > 16.67

Label1.Caption = "飞船挣脱太阳引力飞出太阳系"

case is ①

Label1.Caption = "飞船离开地球的控制,围绕太阳转"

case is ②

Label1.Caption = "飞船绕地球似做匀速圆周运动"

Case Else

Label1.Caption = "输入数据错误！"

③

End Sub

【第5题】

打开文件“考生文件夹\435\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：举重比赛中，60公斤级选手体重不能超过60公斤。当在文本框Text1中输入一个大于60的数时，标签Label1显示“超重！不能参赛！”；当输入一个小于等于60的数时，标签Label1显示“合格，可以参赛！”。

Private Sub Command1_Click()

Dim t As Single '定义变量t，值由文本框Text1读入

t = Val(①)

If ② Then

Label1.Caption = "超重！不能参赛！" Else

Label1.Caption = "合格，可以参赛！"

③

End Sub

【第6题】

打开文件“考生文件夹\733\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：在文本框Text1中输入一位十六进制数码（若是字母要大写），点击“运行”按钮后，在文本框Text2中显示它表示的十进制数。（详见样张）

Private Sub Command1_Click()

Dim m As String

m = ①

Select Case m

Case "A"

m = "10"

Case "B"

m = "11"

Case "C"

m = "12"

Case "D"

m = "13"

Case "E"

m = "14"

Case "F"

m = "15"

②

Text2.Text = ③

End Sub

【第7题】

打开文件“考生文件夹\28\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：在三个文本框中输入一元二次方程的三个系数a、b、c(a≠0)后，单击命令按钮，求出该方程的解，输出到窗体上。

Private Sub Command1_Click()

Dim a As Single

Dim b As Single

Dim c As Single

Dim p As Single

Dim x1 As Single

Dim x2 As Single

a = Val(Text1.Text)

b = Val(①)

c = Val(Text3.Text)

p = b * b - 4 * a * c

If ② Then

x1 = (-b + Sqr(p)) / (2 * a)

x2 = (-b - Sqr(p)) / (2 * a)

Print "x1="; x1

Print "x2="; x2

③

Print "该方程无实数根"

End If

End Sub