文档介绍：明德正行博学多能
2011年程序设计教程详细答案
石河子大学农学院专用
Visual Basic
Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.
比别人多一点努力、多一点自律、多一点决心、多一点反省、多一点学****多一点实践、多一点疯狂，多一点点就能创造奇迹！
石河子大学农学院
园艺二班
刘育峰
二。一一年七月一日
3-，输入半径和高求出底面积、侧面积、体积。
Private Sub Form_Click()
Dim r As Single, h As
Single -一］ _
Const pi As Single = 庄
r = Val(Textl) \A 体甲
h = Val(Text2)
底面积:
侧面积:
体税:
|28. 26
|113. 04
Vb程序必须掌握的****题
请输入一个数值型数据
函数的计算结果为 -19
Text3 = pi * a * a
Text4 = 2*pi*a*b
Text5 =pi*a*a*b
End Sub
(1-100)之间的随机整数，单击计算按钮，求出这两个数的和。
Private Sub Commandl Click () r; , r— _ r-
Textl 二 Int (100 * Rnd + 1) 门 + 一 12。
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()
Label3. Caption = Abs(Textl) End Sub
Private Sub Command3_Click()
Label3. Caption 二 Int (Textl) End Sub
Private Sub Command4_Click()
Label3. Caption = Fix(Textl) End Sub
Private Sub Form_Click()
Textl. SetFocus
= 0
二 Len(Textl) End Sub ，判断能否同时被3, 5, 7整除，若能整除，则用标签输出“能同时被3, 5, 7整除”，否则输出“不能整除”。
105
能同时被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
第一个边 [3
第二个边 |4
第三个边 [5
6
Label 1. Caption = Sqr ((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a) / 16) Else MsgBox (〃数据错误，请从新输入〃) End If Textl. SetFocus Textl. SelStart = 0 Textl. SelLength = Len(Textl) End Sub 。使用inputbox函数输入3个数，并找出3个数中的最大数和最小数。
Priva