求救啊 VB试卷 是吊考啊(后半

来源:百度知道 编辑:UC知道 时间:2024/06/24 09:16:00
16、数学式子sin25°写成VB表达式是 ( )
A、sin25 B、Sin(25) C、Sin(25*3.14/180) D、Sin(25°)
17、若 x 是一个整实数,对 x 的第 3 为小数四舍五入的表达式是 ( )
A、0.01*Int(x+0.005) B、0.01*Int(100*(x+0.005))
C、0.01*Int(100*(x+0.5)) D、0.01*Int(x+0.05)
18、函数 Left(“Hello”,2)的值为 ( )
A、He B、el C、lo D、True
19、以下能正确定义数据类型 TelBook 的代码是 ( )
A)Type TelBook
Name As String*10
TelNum As Integer
End Typr
B)Type TelBook
Name As String*10
TelNum A s Integer
End TelBook
C)Type TelBook
Name String*10
TelNum Integer
End Type TelBook
D)Typedef TelBook
Name String*10
TelNum Integer
End Type
20、以下不属于 Visual Basic 系统的文件类型是 ( )
A).frm B).nat C).vbg D).vbp
问答题。
1、VB的主要特点?

2、什么是对象?

3、用VB开发应用程序的一般步骤?

4、什么是常量、什么是变量?

编程题。
1、输入a、b、c 3个数,输出其中的最大数。

2、窗体上有一个文本框 Textl 、一个命令按

给你第二个编程的代码。我刚学VB2天。拿你的熟悉语句了
Private Sub Command1_Click()
Dim i As Double
i = CInt(Text1.Text)
If i < 60 Then
Text1.Text = "不及格"
ElseIf i < 70 And i >= 60 Then
Text1.Text = "及格"
ElseIf i >= 70 And i < 80 Then
Text1.Text = "中等"
ElseIf i > 80 And i <= 90 Then
Text1.Text = "良好"
ElseIf i > 90 And i <= 100 Then
Text1.Text = "优秀"
End If
End Sub
第三个编程题
Dim i As Integer
i = CInt(Text1.Text)
If i > 0 Then
MsgBox 1
ElseIf i = 0 Then
MsgBox 2
ElseIf i < 0 Then
MsgBox 3
End If
具体什么事件我没研究好。强制类型转换也没弄明白

B
B
B
C
B