活动二--修改、完善程序.pptVIP

活动一中将美元兑人民币的汇率设为常量，但实际上汇率是一直波动的，汇率的值应改为程序运行时由用户输入。小明打算对程序进行修改。 活动二 修改、完善程序 (1)因为汇率的值不固定，在程序运行时由用户输入，所以应将活动一中定义为常量的汇率RA改为变量，设用ra表示。 (2)为方便用户输入汇率和美元值，以及观察换算结果，考虑使输入与输出在同一窗体中实现。 1．分析问题。 (1)打开活动一中的工程文件change.vbp。 (2)设计图形用户界面。向窗体中添加控件，并设置窗体及控件的属性。 2．实现应用程序。 文本框控件被用来显示用户输入的信息，或者通过给Text属性赋值来输出信息。 Private Sub Form_Click() Dim usd As Single Dim rmb As Single Const RA As Single= 8.2765 usd=Val(InputBox(输入美元)) rmb=usd*RA Print 可兑换人民币 Format(rmb,0.00) 元 End Sub 活动一的程序代码 Private Sub Command1_Click() Dim usd As Single Dim rmb As Single Dim Ra As Single Ra = Val(TxtRa.Text) rmb = Val(Txt