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.
chenji = val(inputbox("请输入成绩"))
a= ""
if chenji >=85 then a = "very good"
elseif cheji <= 60 then a ="no good"
else
a = "good"
end if
msgbox a
2.
a= val(inputbox("请输入a"))
if a = 0 then
msgbox "a不能为零"
exit sub
end if
b = val(inputbox("请输入b"))
c =val(inputbox("请输入c"))
dt = b^2-4*a*c
if dt<0 then
msgbox "方程无解"
end if
x1 = (b*(-1)+dt^0.5)/(2*a)
x2 = (b*(-1)-dt^0.5)/(2*a)
msgbox "x1为" & x1 &"x2为" & x2
柯西不等式
1属性
2概念问题你自己看书
3点击事件，点击按钮就执行，结果 显示欢迎你使用VB！"
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循环：
Sub SumNum2() Dim p As Integer Dim sum As Double Dim num As Double p = 1 sum = 0 Do Until (p = 0) num = Val(InputBox("请输入数字,输入0进行求和：")) If (num = 0) Then MsgBox "和为：" & sum p = 0 Else sum = sum + num End If Loop End Sub
做这些题果然挺累的。