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