参考代码：

Private Sub Form_Click()

Dim a As Single, b As Single, c As Single, p As Single, s As Single a = InputBox(\请输入边长一\输入框\b = InputBox(\请输入边长二\输入框\c = InputBox(\请输入边长三\输入框\If a + b > c And a + c > b And b + c > a Then p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c)) Print \三角形的面积是：\Else

Print \输入数据不能构成三角形！\End If End Sub

VB程序设计—《1~100求和》

出题人：柳崧轶

程序运行，,单击窗体：

说明：编写程序，当单击窗体时，分别计算1~100之间的整数和、奇

21 / 44

数和与偶数和，将计算结果显示到窗体上。 要求：

1.1~100的整数和存入变量SUM1中； 2.1~100的奇数和存入变量SUM2中；

3.1~100的偶数和存入变量SUM3中；

4.数据输出使用窗体的Print方法，内容如截图所示。

参考代码：

Private Sub Form_Click()

Dim i As Integer, sum1 As Integer, sum2 As Integer, sum3 As Integer For i = 1 To 100 sum1 = sum1 + i If i Mod 2 = 1 Then sum2 = sum2 + i Else

sum3 = sum3 + i End If Next

Print \的和是：\Print \的奇数和是：\Print \的偶数和是：\End Sub

VB程序设计—《阶乘计算》

出题人：胡智鹏

22 / 44

程序运行,单击窗体：

说明：编写程序，当单击窗体时，首先根据输入框提示输入任意一个整数，再计算该整数的阶乘值，最后将结果显示到窗体上。

要求：

1.数据输入使用InputBox函数，样式如截图所示； 2.阶乘值存入变量P中；

3.数据输出使用窗体的Print方法，内容如截图所示。

参考代码：

Private Sub Form_Click()

Dim n As Integer, p As Long, i As Integer n = InputBox(\请输入一个整数\输入框\p = 1 For i = 1 To n p = p * i Next

23 / 44

Print n & \的阶乘是：\End Sub

VB程序设计—《小猫钓鱼》

出题人：胡智鹏

程序运行,单击窗体：

说明：小猫钓鱼，它第一天钓1条鱼，此后每天比前一天多钓3条。问，小猫想钓20条鱼，需要几天？（事件：窗体单击）

要求：

1.打开“试题程序”文件夹中的工程文件；

2.需要天数存入变量X中，总钓鱼数存入变量SUM中； 3.程序输出使用Print方法，内容如截图所示。

参考代码：

Private Sub Form_Click() Dim i As Integer, sum As Integer i = 1 sum = 1

Do While sum < 20 sum = sum + 3

24 / 44

i = i + 1 Loop

Print \小猫共钓鱼\天，钓到\条鱼。\End Sub

VB程序设计—《数组最大值》

出题人：胡智鹏

程序运行,单击窗体：

说明：编写程序，当单击窗体时，将数组元素中的最大值显示到窗体上。 要求：

1.数组元素使用array函数初始化，数值为：{2,4,3,8,5,1}； 2.数组元素存入数组a( )中； 3.最大值存入变量max中；

4.数据输出使用窗体的Print方法，内容如截图所示。

其中：初始化array函数注意事项：

1.初始化数组必须为动态数组； 2.初始化数组必须为变体类型。

参考代码：

Private Sub Form_Click()

Dim a(), i As Integer, max As Integer

25 / 44