vb汇率计算器

Ⅰ 用VB编写计算器

建议用控件数组，这样好选择控件。还有就是多看看书，VB这东西还是蛮有用的。

下面这个是网络出来的：
用VB编写计算器2007-01-09 10:36一．实验目的
用vb语言编写一个简易计算器
二．实验要求
1．能够完成浮点数的加，减，乘，除；（平方等）
2．能够实现退格和清除功能；
3．初始值为0.0；
4．小数点不能重复输入；
5．高位数的0不出现；
6．应用控件数组实现。
三．控件属性列表
1、创建控件组的方法
a、首先创建一个命令按钮，调整其大小 — 宽、高为 495，名称为Command1，aption 属性为数字 0 。
b、然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共19个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
c、建立其他控件：如右图所示
2、各控件属性设置如下：
控 件 控 件
控件 名称 Caption 控件 名称 Caption
窗体 Form 1 计算器 按钮 Command 2（0） +
按钮 Command 3 退格 按钮 Command 2（1） -
按钮 Command 4 . 按钮 Command 2（2） *
按钮 Command 5 = 按钮 Command 2（3） /
按钮 command 6 + 按钮 Command 7 ±
按钮 Command 1（0）～Command1（9） Caption 0 ～ 9
各个属性修改后得到如图所示的界面

四 程序如下
Dim shu1 As Single, shu2 As Single, suanfu As String
'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符

Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
'将command1的单击事件与文本框显示的内容连接
End Sub

Private Sub Command2_Click(Index As Integer)
shu1 = Val(Text1.Text) '将shu1隐藏起来
suanfu = Command2(Index).Caption
Text1.Text = ""
End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text + "."
If (InStr(Text1.Text, ".") = 1) Then '第一位不能为小数
Text1.Text = ""
End If
If InStr(Text1.Text, ".") < Len(Text1.Text) Then
'防止出现两个小数点
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

End If

End Sub

Private Sub Command5_Click() '开始加减乘除的运算
shu2 = Val(Text1.Text)
Select Case suanfu
Case "+"
Text1.Text = shu1 + shu2
Case "-"
Text1.Text = shu1 - shu2
Case "*"
Text1.Text = shu1 * shu2
Case "/"
If shu2 = 0 Then
MsgBox "分母不能为零!", 1 + 32 + 0,
"错误" '错误提示框图下所示
Text1.Text = ""
Else
Text1.Text = shu1 / shu2
End If
End Select
End Sub

Private Sub Command3_Click() '假如输入错误,可每次退后一格
If Text1.Text = "" Then
Exit Sub
End If
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Private Sub Command6_Click()
Text1.Text = "" '清除
End Sub
Private Sub Command7_Click() '平方运算
Text1.Text = Text1.Text * Text1.Text
End Sub
Private Sub Command8_Click()
If Left(Text1.Text, 1) <> "-" Then
Text1.Text = "-" & Text1.Text
Else
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

Ⅱ vb的汇率转换问题

Label2.Caption & "壹"

....
代码没必要写那么长。用mid的特性，简化代码

Ⅲ 用vb编写 人民币汇率

保存下面的代码到一个后缀名为FRM的文件中，再用VB打开即可。
＝＝＝＝＝＝＝＝＝＝＝＝
VERSION 5.00
Begin VB.Form Form1
Caption = "人民币转换工具"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.OptionButton Option1
Caption = "转换成欧元"
Height = 495
Index = 3
Left = 1680
TabIndex = 4
Top = 1200
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "转换成日元"
Height = 495
Index = 2
Left = 240
TabIndex = 3
Top = 1200
Width = 1215
End
Begin VB.OptionButton Option1
Caption = $"Form2.frx":0000
Height = 495
Index = 1
Left = 1680
TabIndex = 2
Top = 720
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "转换成美元"
Height = 495
Index = 0
Left = 240
TabIndex = 1
Top = 720
Width = 1215
End
Begin VB.TextBox Text1
Height = 375
Left = 240
TabIndex = 0
Top = 120
Width = 1455
End
Begin VB.Label Label1
Height = 375
Left = 480
TabIndex = 5
Top = 1800
Width = 3015
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Option1_Click(Index As Integer)
Dim t As Single
t = Val(Text1.Text)
Label1.Caption = FormatNumber(Choose(Index + 1, t / 7.7, t / 15.47, t / 0.081, t / 10.8), , vbTrue)

End Sub

Ⅳ VB制作计算器

'添加窗体Form1,文本框Text1,Text2,Text3,Text4,按钮Command1,然后添加如下代码:
PrivateSubCommand1_Click()
Text4.Text=strCalc(Text1.Text&Text2.Text&Text3.Text)
EndSub

PublicFunctionstrCalc(Tmpstr$)AsDouble
Dimsc
Setsc=CreateObject("ScriptControl")
sc.Language="VBScript"
strCalc=sc.Eval(Tmpstr)
Setsc=Nothing
EndFunction

Ⅳ vb计算器单个数的转换计算

我有的

Ⅵ vb 制作简易计算器

那个plfushicn的方法也可以只是不太适合初学者.

望采纳！还有不会的随时问我！

Ⅶ vb的汇率转换

类型不匹配（错误 13）
当前 Visual Basic为了完成数据类型的赋值，能够对许多数值进行转换，而较早的版本则做不到。然而，此错误仍可能发生并且有几种原因和解决方法。

现在需要搞清楚，这个赋值式是想做字符串拼接还是是数字增加。

Ⅷ VB 计算器

简单的方法有二种：
第一种，在单击等号计算后清空不用的加数，这样再次点击等号则不会重复计算。
代码修改如下：
Private Sub Command4_Click()
st = Text1
Text1 = sa + st
sa=0
End Sub
第二种，设置一个布尔变量，用来标识是否已经计算。代码如下：
Option Explicit
Dim sa As Integer
Dim st As Integer
Dim 未计算 As Boolean

Private Sub Command1_Click() '按数字键1
If Not 未计算 Then
Text1 = ""
未计算 = True
End If
If Text1 = "" Then
Text1 = "1"
Else
Text1 = Text & "1"
End If
End Sub

Private Sub Command2_Click() '数字键2到0同数字键1。建议使用控件数组
'
End Sub

Private Sub Command3_Click() '加号
sa = Val(Text1)
Text1.Text = ""
未计算 = True
End Sub

Private Sub Command4_Click() '等号，计算
If 未计算 Then
Text1 = sa + Val(Text1)
未计算 = False
End If
End Sub

Private Sub Form_Load()
Text1 = ""
未计算 = True
End Sub

另外，建议，程序要写注释。

Ⅸ 用vb做一个汇率转换器

Text3.text=val(text1.text)*val(text2.text)

Ⅹ VB编程美元兑换人民币代码

private sub command1_click()
dim m as single,r as single,h as single
m=val(text1.text) '美元数量
h=8.099 '汇率
r=m*h '换算
label1.caption=Format (r, "#.##") '显示兑换的人民币数量
end sub