VB程序题：效仿实验2.4，验证转换函数的使用，Text1文本框输入字符串，Text2文本框显示调用所选函数的结果，4个命令按钮为转换函数，Label2显示对应的函数名，运行效果如图2.2.5所示。龚

VB程序题：效仿实验2.4，验证转换函数的使用，Text1文本框输入字符串，Text2文本框显示调用所选函数的结果，4个命令按钮为转换函数，Label2显示对应的函数名，运行效果如图2.2.5所示。

解题：按要求建立相应的控件。相应的代码如下：

Private Sub Command1_Click()
    Label2 = "Val函数的结果"
    Text2 = Val(Text1.Text)'注意参数内容
End Sub

Private Sub Command2_Click()
    Label2 = "Str函数的结果"
    Text2 = Str(Text1.Text) '注意参数内容
End Sub

Private Sub Command3_Click()
    Label2 = "Chr函数的结果"
    Text2 = Chr(Text1.Text)'注意参数内容
End Sub

Private Sub Command4_Click()
    Label2 = "Asc函数的结果"
    Text2 = Asc(Text1.Text)'注意参数内容
End Sub
’注意，在text1里输入参数时，要根据不同的函数输入不同的内容，如数字，字符等，否则会出错。

程序运行效果图如下：图2.2.5

Visual Basic程序设计教程(第四版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://www.wb98.com/post/137.html