VB程序温度转换

'按照这两条公式算就行了

'F=(C×9/5)+32

'C=(F-32)×5/9

'式中F--华氏温度,C--摄氏温度

'计算华氏温度

Private

Sub

Command1_Click()

Dim

F,

C

C

=

Val(Text1.Text)

F

=

(C

*

9

/

5)

+

32

MsgBox

"华氏温度为"

&

CStr(F)

End

Sub'计算摄氏温度

Private

Sub

Command2_Click()

Dim

F,

C

F

=

Val(Text2.Text)

C

=

(F

-

32)

*

5

/

9

MsgBox

"摄氏温度为"

&

CStr(C)

End

Sub

Private Sub Command1_Click()Text1 = Val(Text1) * 1.8 + 32End SubPrivate Sub Command2_Click()Text1 = (Val(Text1) - 32) / 1.8End Sub

Command1：摄氏度转华氏度

Command2：华氏度转摄氏度

用逆序输出实现；

Private Sub Text1_Change()

Text2 = Right(Text1, 1) &Left(Text1, 1)

End Sub

华氏转摄氏，参考如下：

Private Sub Text1_Change()

If Text1.Text <>"" Then

Text2.Text = Round((Text1.Text - 32) * 5 / 9, 1)

Else

Text2.Text = Round(-32 * 5 / 9, 1)

End If

End Sub

扩展资料：

VB自带函数及其用法；VB基本控件及其属性、事件；VB6.0开发环境，这些是基础的。

vb常用编程：

数据类型、变量、常量类

Dim 模块级或过程级中声明变量

Global 模块级中声明全局变量

private 功能与Dim相同

Static 过程级中声明静态变量

Deftype 设置变量缺省类型

Let或= 赋值

Type …End Type 自定义类型

Enum 定义枚举类型

Lset、Rset 左或右对齐变量中的一字符串

Const 声明用于代替文字量的常数

参考资料：

凤凰网--编程语言排行榜Visual Basic .

---