- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- + 算法及算法的表示方法
- 计算机解决问题的步骤化
- 算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
要求编写VB程序,使其具有下列功能:在文本框Text1中输入身高数据,在文本框Text2中输入体重数据,在复选框Check1据实勾选“性别”,单击“判断”按钮Command1,按“世界卫生组织体重计算标准”进行判断,并在Label3中显示判断结果。界面设计如图1所示。世界卫生组织关于成年人体重标准的计算方法如图2所示。


(1)应用程序界面设计时,为添加文本框Text1和Text2,应使用图3所示的“控件工具箱”中的___________(填写相应编号),并在属性窗口中将两个文本框的________属性设置为空。

(2)请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim cm,kg,sc As Integer
Dim i as Single
cm = Val(Text1.Text)
kg = val(Text2.Text)
sc = 0
i = 0
If Check1 =" 0" Then
sc =" (cm" - 80) * 0.7
Else
_________①__________
End If
i =" (kg" - sc) / kg
If i >=" -0.1" And i <=" 0.1" Then
Label3.Caption = "正重体重"
ElseIf i > 0.1 And i <=" 0.2" Then
Label3.Caption = "体重超重"
ElseIf i > 0.2 Then
_____________②____________
ElseIf i <=" -0.1" And i >=" -0.2" Then
Label3.Caption = "体重过轻"
Else
Label3.Caption = "体重严重不足"
End If
End Sub


(1)应用程序界面设计时,为添加文本框Text1和Text2,应使用图3所示的“控件工具箱”中的___________(填写相应编号),并在属性窗口中将两个文本框的________属性设置为空。

(2)请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim cm,kg,sc As Integer
Dim i as Single
cm = Val(Text1.Text)
kg = val(Text2.Text)
sc = 0
i = 0
If Check1 =" 0" Then
sc =" (cm" - 80) * 0.7
Else
_________①__________
End If
i =" (kg" - sc) / kg
If i >=" -0.1" And i <=" 0.1" Then
Label3.Caption = "正重体重"
ElseIf i > 0.1 And i <=" 0.2" Then
Label3.Caption = "体重超重"
ElseIf i > 0.2 Then
_____________②____________
ElseIf i <=" -0.1" And i >=" -0.2" Then
Label3.Caption = "体重过轻"
Else
Label3.Caption = "体重严重不足"
End If
End Sub
将数学表达式
写成Visual Basic表达式,正确的是()

A.Sqr[Abs(a * b – c^c)] | B.Sqr(Abs(ab - c ^2)) |
C.Sqr(Abs(ab - c ^c)) | D.Sqr (Abs(a * b - c ^ 2)) |
有一个由4000个整数构成的顺序表,假定表中的元素已经按升序排列,采用二分查找定位一个元素。则最多需要( )次比较就能确定是否存在所查找的元素。
A.11次 | B.12次 | C.13次 | D.14次 |
输入一正整数并判断是奇数还是偶数的算法描述如下图所示:

该流程图中,语句“x mod 2 = 0?”,应加的框图为( )

该流程图中,语句“x mod 2 = 0?”,应加的框图为( )
A.![]() |
B.![]() |
C.![]() |
D.![]() |
表达式 len(“Good Morning”)+2 mod 3 +int(3.9999)的值为( )
A.15 | B.16 | C.17 | D.表达式运算出错 |
下列VB的表达式值为的是65的是( )
A.Len(“65”) |
B.Str(“6”)+“5” |
C.Mid(“2065”,3,2) |
D.Asc(“B”) |