|
制作一个解的一元二次方程“ax2+bx+c=0”的程序。其中a、b与c的值可以由键盘输入。当b2-4*a*c=0
时显示“此方程无解，请重新输入”，当 b2-4*a*c>=0时则显示 x1和x2 两个解。
Private Sub
Command1_Click()
a = Text1.Text :b = Text2.Text :c = Text3.Text
'文本框接受a,b,c的值
d = b * b -
4 * a * c '计算根式判别式
p = -b / (2 * a)
If d >= 0 Then '在实数范围内有解
If d > 0
Then '有2个不同的实数解
r =
Sqr(d) / (2 * a)
X1 = p + r
X2 = p - r
Else
X1 = p '有2个相同的实数解
X2 = p
End If
Label6.Caption = X1 '输出结果
Label7.Caption = X2
Else
Label6.Caption = "方程无实根"
Label7.Caption = "方程无实根"
End If
End Sub
Private Sub
Command2_Click()
End '退出
End Sub
制作一个简单的公用电话计费程序。要求30分钟以内电话按0.15元/分钟计算，超过部分按0.3元/分钟计算。界面如下：
Private Sub Command1_Click()
t = Val(Text1.Text)
If t < 0 Then
Label3.Caption = "输入有误，请重新输入"
Else
If Int(t) < t Then t = Int(t) + 1 '当t~0<t<1
{t=1}
If t < 30 Or t = 30 Then '当t~1<=t<=30
s = t * 0.15
Else
s = 30 * 0.15 + (t - 30) * 0.3
'当t>30时超过部分按0.3元/分钟
End If
Label3.Caption = s & "元"
'&字符连接符号
End If
制作一个简单的求圆面积S=3.14*r*r和圆周长L=2*3.14*r的程序r<=0时显示“输入有误，请重新输入”，当r>时显示S和L的值。
Private Sub Command1_Click()
r = Val(Text1.Text)
If r <= 0 Then
Text2.Text = "输入有误，请重新输入"
Else
S = 3.14 * r * r
L= 2 * 3.14 * r
Text2.Text =S
Text3.Text = L
End If
End Sub
制作一个简单的求直角三角形斜边C*C=A*A+B*B的程序，当A、B大于零时显示斜边的长度，否则显示“输入有误，请重新输入”
Private Sub Command1_Click() '输入用Text1和Text2,输出用Text3
a = Val(Text1.Text) 'val(x)将字符型的x值转换成数值型
b =
Val(Text2.Text)
If a > 0 And b > 0 Then
c = Sqr(a * a + b * b) 'Sqr(x)是求x的平方根
Text3.Text =
c
Else
Text3.Text = "输入有误，请重新输入"
End If
End Sub
制作一个简单的累加器程序S=1+2+3+……+N，其中N的值有键盘输入，当N>0时显示S的值。
Private Sub Command1_Click()
S = 0
n = InputBox("请输入N值")
'InputBox("提示输入内容")
For I = 1 To n
S = S+I
Next
Label1.Caption = S
End Sub
标题为“变色汽车”，红色，小二号/18磅，黑体。单击红色，蓝色、绿色三个按钮，使汽车的颜色也做相应的变化。
Private Sub Command1_Click() '程序文件和图片文件必须放在同一目录下
Image1.Picture
= LoadPicture("red.jpg")
End Sub
Private Sub Command2_Click()
Image1.Picture = LoadPicture("blue.jpg")
End Sub
Private Sub Command3_Click()
Image1.Picture = LoadPicture("green.jpg")
End Sub
制作一个简单的求多边形内角和的程序（内角和=（多边形的边数-2）*180，当输入的边数小于等于2或输入的非整数，则显示“输入有误，请重新输入”，否则显示内角和。
Private Sub Command1_Click()
a = Val(Text1.Text)
If a <= 2 Or a <> Int(a) Then
'Int(x)取x的整数
Text2.Text =
"输入有误，请重新输入"
Else
s = (a - 2) * 180
Text2.Text = s
End If
End Sub
制作一个简单计算服装价格的程序：现价=原价*（打折率/10），其中原价和打折率由键盘输入，如果原价<=0，则显示“输入有误，请重新输入”，否则显示服装的售价。
Private Sub Command1_Click()
a = InputBox("请输入原价值")
b = InputBox("请输入打折率值")
If a <= 0 Then
Text1.Text = "输入有误，请重新输入"
Else
c = a * b / 10
Text1.Text = c
End If
End Sub
综合应用：
-
在EXCEL操作中会使用编辑里的填充各项；格式中的条件格式和套用格式；
-
在“我与世博会”主题中，可以“我”名义发一份倡议书，文句自拟。
-
在“我国全面建设小康水平”的主题中，可将90年代我国城镇居民家庭恩格尔系数走势（%）制作统计图，放在网页上。
-
在“苏州四大名园的特点和景色”主题中，在标题左侧输入“预测1995年后若干年以后的旅游人数”，并用超级链接到yc.exe文件。请用VB做一个yc.exe的应用程序，功能：能预测1995年后若干年以后的旅游人数。运行后，当输入年数值3，按下“预测”按钮，能显示1998年旅游人数为13.343。
|
