当前位置:首页 » VB程序题 » 正文

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程序设计教程(第四版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/137.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号