vb程序设计答案.docx

文档介绍：明橹正行博学多能
2011年程序设计教程详细答案
石河子大学农学院专用
Visual Basic
Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.
比别人多一点努力、多一点自律、多一点决心、多一点 反省、多一点学****多一点实践、多一点疯狂，多一点点就 能创造奇迹！
石河子大学农学院
园艺二班 刘育峰 二O—一年七月一日
Vb程序必须掌握的****题
3-，输入半径和高求出底面积、侧面积、体积。
Private Sub Form_Click() Dim r As Single, h As Single
Const pi As Single = r = Val(Textl)
h = Val(Text2)
Text3 = pi * a * a
Text4 = 2*pi*a*b
Text5 =pi*a*a*b
End Sub
(1-100)之间的随机整数，单击计算按钮，求 出这两个数的和。
71 + 54 二 125
Private Sub Commandl_Click()
Textl = Int (100 * Rnd + 1)
Text2 = Int (100 * Rnd + 1)
End Sub
出题 计算
Private Sub Command2_Click ()
Text3 = Vai (Textl) + Vai (Text2)
End Sub
3-3建立一个标准工程，运行时，
在文本框中输入一个数值型数据，单击相应按钮，在标签中显示运行结果，文本 框始终处于选中状态。
Private Sub Command1_Click() Label3. Caption = Sgn(Textl) End Sub
Private Sub Command2_Click() Labe 13 .Cap tion 二 Abs (Tex tl) End Sub
Private Sub Command3_Click() 二 Int(Textl) End Sub
Private Sub Command4_Click() 二 Fix(Textl) End Sub
Private Sub Form_Click()
Textl. SetFocus
二 0
= Len (Textl)
End Sub
，判断能否同时被3, 5, 7整除，若能整除，则用标签 输出“能同时被3, 5,7整除”，否则输出“不能整除”。
Private Sub Command1_Click()
Dim a As Single a = Vai (Textl)
If a Mod 105 二 0 Then
Label 1. Caption = 〃能同时被 3、5、7 整除〃
Else
Label 1. Caption = 〃不能整除〃
End If
End Sub
4-6判断输入三条边能否构成三角形，若能则计算出面积，若不能则给出错误提 示，并定位焦点，重新输入。
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = Vai(Textl)
b = Vai(Text2)
c = Vai(Text3)
If a + b > c And a - b < c Then
Label 1. Caption = Sqr ((a + b + c) * (a + b-c) * (a + c - b) * (b + c- a) / 16)
第一个边 [3
第二个边 |4
第三个边 [5
6
Else
MsgBox (〃数据错误，请从新输入〃)
End If
Textl. SetFocus
Textl. SelStart = 0
Textl. SelLength = Len(Textl)
End Sub
。使用inputbox函数输入3个数，并找出3个数中的最大 数和最小数。
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As 最小值4 Integer
a = Val(InputBox("请输入")) 最大值 6
b = Val(Inpu