参考代码：
Private Sub Command1_Click() Dim a!, b!, C! a = Val(Text1.Text) b = Val(Text2.Text) C = 2 * a + 2 * b Text3.Text = C End Sub
VB程序设计—《货币兑换》
出题人：王冬梅
程序运行,单击窗体：
16 / 44
说明：编写程序，当单击窗体时，根据输入框提示输入兑换人民币数和外币种类，将兑换结果显示到窗体上。 要求：
1.程序必须使用多分支Select Case语句实现； 2.数据输入使用InputBox函数，样式如截图所示；
3.转换后外币值存入变量S中；
4.数据输出使用窗体的Print方法，内容如截图所示。
汇率：美元—— 0.161 欧元—— 0.116 日元—— 16.361
注意：部分机器在InputBox输入汉字时显示乱码，这不影响运算结果。
参考代码：
Private Sub Form_Click()
Dim a As Single, S As Single, c As String
a = InputBox(\请输入要兑换的人民币数量\人民币\
c = InputBox(\请输入要兑换的币种：美元、欧元、日元\外币种类\Select Case c Case \美元\S = 0.161 * a
Print a; \人民币可兑换\美元\Case \欧元\
17 / 44
Print a; \人民币可兑换\欧元\S = 0.116 * a Case \日元\
Print a; \人民币可兑换\日元\S = 16.361 * a End Select End Sub
VB程序设计—《奇偶判断》
出题人：蔡国欣
程序运行,单击窗体：
说明：编写程序，当单击窗体时，首先根据输入框提示输入任意一个整数，再判断输入数是奇数还是偶数，最后将结果显示到窗体上。
要求：
1.数据输入使用InputBox函数，样式如截图所示； 2.奇数值存入变量JS1中，偶数值存入变量OS1中； 3.数据输出使用窗体的Print方法，内容如截图所示。
参考代码：
18 / 44
Private Sub Form_Click()
Dim a As Integer, JS1 As Integer, OS1 AsInteger a = InputBox(\请输入一个整数\输入\If a Mod 2 = 1 Then JS1 = a
Print \此项是奇数\Else OS1 = a
Print \此项是偶数\End If End Sub
VB程序设计—《三角形面积》
出题人：柳崧轶
程序运行,单击窗体： 情况1：
19 / 44
情况2：
说明：编写程序，当单击
窗体时，根据输入框提示输入任意三角形三边长，若输入数据可以构成三角形则计算相应三角形面积；若输入数据不能构成三角形则显示相应提示。将结果显示到窗体上。 要求：
1.打开“试题程序”文件夹中的工程文件；
2.对原有程序进行修改，增加不能构成三角形判断； 3.若不能构成三角形输出判断结果，内容如截图所示。
提示：构成三角形条件为，任意两边之和大于第三边。
20 / 44