VB的几道问题 T-T

1、指示一个窗体位置的值是窗体的( ) A.属性 B.对象 C.事件 D.方法

2、简述下在VB的环境下，对象、属性、方法、事件和事件驱动程序的概念。

3、下面的程序是什么事件驱动程序？如何执行？结果如何？

Private Sub Command1_Click( )

Print "欢迎你使用VB！"

End Sub

编程题

1、输入一个学生的成绩，若成绩在85分以上，则输出"very good"，若成绩在60~85分之间，则输出"good"，若成绩低于60分，则输出"no good"。

2、求一元二次方程ax^2+bx+c=0的根

3、输入圆的半径R和运算标志，按照运算标志进行指定运算。给定的运算标志及其表示的运算如下：

C(Circle) 表示计算圆的周长

A(Area) 表示计算圆的面积

B(Both) 表示计算圆的周长和面积

（要求使用Case语句编程）

4、输入若干正实数，个数预先不能确定，求这些正实数之和（要求分别使用Do While…Loop语句和Do Until…Loop语句）

1.A

2.对象：类的实例化称为对象.

属性：对象所具有的变量的值称为对象的属性

方法：对象的中函数称为对象的方法

事件：能够触发对象的相关功能的监听接口称为事件

事件驱动：用来监听对象事件的对象接受到消息来驱动事件执行的过程称为事件驱动

3.按钮控件对象Command1的Click事件驱动程序；当点击按钮时执行，结果在窗体上显示：欢迎你使用VB！

编程题

1.

Sub Chengji()
Dim Score As Double
Score = Val(InputBox("请输入成绩:"))

If Score > 85 Then
MsgBox "very good"
Else
If Score < 60 Then
MsgBox "no good"
Else
MsgBox "good"
End If
End If

End Sub
2.在窗体上加三个标签，三个文本框text1,text2,text3,一个按钮Command1,然后加上如下代码即可

如图所示

Private Sub Command1_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a = 0 And b = 0 Then
MsgBox "输入有误，a,b不能同时为0"
Else
If a = 0 Then
MsgBox "方程只有一个根:x=" & -c / b
Else
MsgBox "方程有两个根:x1=" & (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) & ",x2=" & (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
End If

End If
End Sub

3.在窗体上添加一个按钮Command1,两个标签，两个文本框text1,text2，如图所示，然后添加如下代码：

Private Sub Command1_Click()
Dim Pi As Double
Dim ccle As Double
Dim Aear As Double
Pi = 3.14
Select Case Text2.Text
Case "C":
ccle = 2 * Pi * Val(Text1.Text)
MsgBox "圆的周长为:" & ccle
Case "A":
Aear = Pi * Val(Text1.Text) * Val(Text1.Text)
MsgBox "圆的面积为:" & Aear

Case "B":
ccle = 2 * Pi * Val(Text1.Text)
Aear = Pi * Val(Text1.Text) * Val(Text1.Text)
MsgBox "圆的周长为:" & ccle & ",圆的面积为:" & Aear
Case Else:
MsgBox "请输入正确的标志:A或B或C."
End Select
End Sub

4.

Do While 循环:

Sub SumNum()
Dim p As Integer
Dim sum As Double
Dim num As Double
p = 1
sum = 0
Do While (p = 1)
num = Val(InputBox("请输入数字,输入0进行求和："))
If (num = 0) Then
MsgBox "和为：" & sum
p = 0
Else
sum = sum + num
End If
Loop
End Sub

Do Until循环：

编程题

1

Private Sub Command1_Click( )

a = val(text1.text)

if a>85 then

print "very good"

else if a <85 and a>60 then

print "good"

else if a< 60 then

print "no good"

end if

end if

end if

Private Sub Command2_Click( )

text1.text = ""

from1.cls

1。a 3.直接打印出结果。忘光了vb。。。