已有23人关注
请教visual basic 学习手册中3.4.7示例的代码问题
发表在VB答疑区 2011-12-26
是否精华
版块置顶:
请教visual basic 学习手册中3.4.7示例的代码问题,我不明白call exchange 是什么意思,还有lbl_info 是从哪里来的?还有&a&为什么要这样表示,我从光盘中把代码原封不动的复制粘贴到我制作的工程中,运行时却出现变量示定义的提示,这是什么原因?请赐教
分享到:
精彩评论 3
C语言
学分:0 LV1
TA的每日心情
无聊
2021-11-12 22:00:04
2011-12-27
沙发
1.有一个子程序 
 Sub exchange()
 
 End sub

调用方式有两种
A. exchange
B. call exchange
如果子程序有参数
 Sub exchange(x)
 
 End sub

调用方式是
A. exchange x
B. call exchange(x)

2.看一下代码窗口第一行有没有这样一条语句
option explicit
它表示强制要求程序中的变量必须先定义,如果没有这条语句,变量可又不定义直接使用,有了它就必须先定义再使用
Dim a as integer,b as integer,c as integer '变量定义语句
a=val(text1)
b=val(text2)
c=a+b

3.lbl_info由于手头没有程序,没法说明,但看其名称应该是一个标签控件的名称
4.有一个变量a 值为5
表达式  "第" & a & "次" 
值是    "第5次"
& 是字符串连接运算符
lichunbao888
学分:0 LV1
TA的每日心情
第一天
2021-05-13 21:37:00
2011-12-29
板凳
我有示例文件,可是我上传不到论坛里。
lichunbao888
学分:0 LV1
TA的每日心情
第一天
2021-05-13 21:37:00
2011-12-29
地板
Option Explicit


Private Sub Command1_Click()     '交换
    Call exchange
End Sub

Private Sub Command2_Click()     '结束程序
    End
End Sub

Private Sub exchange()           '交换过程
    Dim a As Integer
    Dim b As Integer
    If IsNumeric(Txt_a.Text) Then
        a = Val(Txt_a.Text)
    Else
        MsgBox "请输入数字!"
        Exit Sub
    End If
    If IsNumeric(Txt_b.Text) Then
        b = Val(Txt_b.Text)
    Else
        MsgBox "请输入数字!"
        Exit Sub
    End If
    a = a + b
    b = a - b
    a = a - b
    Lbl_Info.Caption = "a的值是:" & a & "   b的值是:" & b
End Sub
万分感谢!
首页上一页 1 下一页尾页 3 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照