VB上机操作题综合 - 图文 下载本文

参考代码:

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