关于VB的几个问题想请教下

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循环：
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 
做这些题果然挺累的。
 
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！"

上一个：C#如何调用VB编写的dll文件？
下一个：vb程序，熟练的帮忙做点

更多图片编程知识:

关于VB的几个问题 想请教下

关于VB的几个问题想请教下