VB上机操作题综合 - 图文(3)

BackColor Picture Label1 Caption ForeColor Font BackStyle Picture1 Picture AutoSize 白色 \\素材\\背景.jpg 看穿你的心声 深紫色 华文行楷、小一、加粗倾斜 Text 0 \\素材\\0.jpg True Text1 MultiLine Font True 幼圆、小四 如上图所示 Picture2 Picture AutoSize Command2 Caption Font \\素材\\00.jpg True 显示结果 隶书、小三 Command1 Caption 开始测试 Font 隶书、小三 重要提示：

由于程序运行过程中要加载图片，因此请将素材文件夹复制到程序存储根目录中。

参考代码：

Private Sub Command1_Click()

Picture2.Picture = LoadPicture(App.Path & \素材\\00.jpg\Randomize r = Int(Rnd * 4 + 1) Select Case r Case 1

Picture1.Picture = LoadPicture(App.Path & \素材\\1.jpg\Case 2

Picture1.Picture = LoadPicture(App.Path & \素材\\2.jpg\Case 3

11 / 44

Picture1.Picture = LoadPicture(App.Path & \素材\\3.jpg\Case 4

Picture1.Picture = LoadPicture(App.Path & \素材\\4.jpg\End Select End Sub

Private Sub Command2_Click() Command1.Caption = \再来一次\Select Case r Case 1

Picture2.Picture = LoadPicture(App.Path & \素材\\11.jpg\Case 2

Picture2.Picture = LoadPicture(App.Path & \素材\\22.jpg\Case 3

Picture2.Picture = LoadPicture(App.Path & \素材\\33.jpg\Case 4

Picture2.Picture = LoadPicture(App.Path & \素材\\44.jpg\End Select End Sub

VB程序设计—《三角形面积》

出题人：胡智鹏

程序运行,单击窗体：

12 / 44

说明：编写程序，当单击窗体时，首先根据输入框提示输入任意三角形三边长，再计算相应三角形面积，最后将计算结果显示到窗体上。 要求：

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

2.数据输出使用窗体的Print方法，内容如截图所示。 测试数据（边长分别为3、4、5的三角形面积是6）

相关知识：面积公式：s?p?(p?a)*(p?b)*(p?c) 其中：

p?a?b?c 2

参考代码：

Private Sub Form_Click()

Dim a As Single, b As Single, c As Single, p As Single, s As Single a = Val(InputBox(\请输入边长一\输入框\b = Val(InputBox(\请输入边长二\输入框\

13 / 44

c = Val(InputBox(\请输入边长三\输入框\p = (a + b + c) / 2

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

VB程序设计—《圆周长面积》

出题人：蔡国欣

程序运行,单击窗体：

说明：编写程序，当单击窗体时，首先根据输入框提示输入任意圆半径，再计算相应圆的周长和面积，最后将计算结果显示到窗体上。

要求：

1.数据输入使用InputBox函数，样式如截图所示； 2.周长值存入变量c中，面积值存入变量s中； 2.数据输出使用窗体的Print方法，内容如截图所示。

程序中π取3.14

参考代码：

Private Sub Form_Click()

Dim R As Single, C As Single, S As Single pi = 3.14

R = Val(InputBox(\请输入半径R\输入框\

14 / 44

C = 2 * pi * R S = pi * R * R Print \周长是\Print \面积是\End Sub

VB程序设计—《长方形周长》

出题人：蔡国欣

程序运行,单击窗体：

说明：编写程序，在文本框1和文本框2内分别输入长方形两边边长，当单击“计算周长”按钮时，在文本框3中显示长方形周长值。 要求：在“试题程序”文件夹中打开工程文件，根据给定事件补充完整程序。

15 / 44