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

参考代码：

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