VB语言，华氏温度和摄氏温度的编程是什么？

用逆序输出实现；

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 .

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

Command1：摄氏度转华氏冲稿度

Command2：华滑判激氏度转摄氏信袜度

首先运行VB 6中文版，建立一个标准的exe工程，将窗体命名为frmmain，borderstyle属性设为：3-fixed，caption，属性设置为空；接着添加一个frame控件——“frame1”，caption属性设置为空，再添加picturebox控件pctPrg，前景色为绿色，背景色为浅红色；最后添加一个定时器控件——“timer”，interval设置为100（当然，也可以根据自己的需要设置读取间隔），enabled设置为true，其他的属性采用系统的默认值，调整窗体和控件到适当位置和适当大小即可（参见附图）。

2.编写程序代码，双击窗体frmmain并输入以下代码

Option Explicit'变量检查

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA"纯告粗 (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

'友轿获取一个指定的注册表项的设置值

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

'打开一个指定的的注册表项

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

'关闭系统注册表中的指定项（或指定键）

Private Const REG_DWORD = 4

Private Const HKEY_DYN_DATA = &&H80000006

'这两个常数是读写注册表必须的

'以上API函数和常数结合能够实现对注册表任意指定项的访问

Private Avg As Long

'CPU 资源做镇占用参数平均数

Private Sum As Long

'CPU 资源占用参数合计数

Private Index As Long '统计次数

'窗体级函数、常数和变量声明结束

Private Function GetCPUUsage() As Long

On Error Resume Next

'忽略可能产生的错误

Dim Data As Long, Typ As Long, Size As Long

Dim hKey As Long

Dim hRet As Long

hRet = RegOpenKey(HKEY_DYN_DATA, "PerfStats\StatData", hKey)

'打开该主键

hRet = RegQueryValueEx(hKey, "KERNEL\CPUUsage", 0&&, REG_DWORD, Data, 4)

'读取主键值

GetCPUUsage = Data

' 为自定义函数赋值

hRet = RegCloseKey(hKey)

'关闭该主键

End Function

Private Sub Form_Load()

'初始化标题和提示信息

Dim hKey As Long, Data As Long

App.Title = "CPU监视器 占有率："

Me.Caption = App.Title

'初始化应用程序标题栏

pctPrg.ToolTipText = "单击右键退出程序！"

RegOpenKey HKEY_DYN_DATA, "PerfStats\ StartStat", hKey

RegQueryValueEx hKey, "KERNEL\CPUUsage", 0, REG_DWORD, Data, 4

RegCloseKey hKey

'打开注册表的资源监控标识

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

'程序结束前关闭定时器

Timer.Enabled = False

End Sub

Private Sub Form_Unload(Cancel As Integer)

End'结束程序

End Sub

Private Sub pctPrg_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'右键单击退出程序

If Button = 2 Then

Unload Me

End If

End Sub

Private Sub Timer_Timer()

'利用定时器周期性地读取资源状况

'本程序每隔0.1秒读取一次数据

Dim tmp As Long ' CPU资源占用状况参数

tmp = GetCPUUsage '获得参数

Me.Caption = App.Title && FormatPercent(tmp / 100) '

'在窗体标题栏用百分比数字形式反映占用率

Sum = Sum + tmp '累加统计

Index = Index + 1 '次数统计

Avg = Int(Sum / Index) ' 求平均值

pctPrg.Cls ' 清除图示内容

pctPrg.Line (0, 0)-(tmp, 18), ,&& BF

'以绿色图示资源占用状况

pctPrg.Line (Avg, 0)-(Avg, 18), &&HFF

'以深红色画出平均线

pctPrg.Line (Avg + 1, 0)-(Avg + 1, 18), &&HFF

End Sub

'程序结束

通过以上步骤，装备精良的CPU监视器就制作完成了。

注意事项

需要说明的是，在内存配置较低的计算机中（比如内存32MB，Windows 98第二版），CPU的占有率是较高的，一般能够达到50%，这可能是由于系统需要CPU进行许多的运算模拟来弥补资源的不足。然而在88MB内存，同样 *** 作系统的机器上，占有率一般只有10%。另外，本文主窗体中定时器运行过程函数中调用的FormatPercent函数是VB 6.0新添加的一个函数，它的作用是将一个表达式转化成百分数。用VB 5.0开发的读者需要采取其他变通方法，以实现监控CPU功能。本程序在Windows 98第二版、VB 6.0中文企业版下测试通过。

---