| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 607 人关注过本帖
标题:子程序自动循环运行求教
只看楼主 加入收藏
zy32361414
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-4-12
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
子程序自动循环运行求教
Private Sub Command1_Click()
Dim x As Integer, y
For y = 1 To 2
If Option3.Value = True Then
x = x + 5
Else
x = x
End If
clear
wt & y
Nexty
End Sub
我想要达成的是利用以上程序中的FOR循环自动运行wt加序号y的以下子程序(比如wt1,wt2),以上代码有错误 请高手帮忙修改一下。
以下为子程序:
Public Sub clear()
Label1.Caption = ""
Option1.Caption = ""
Option2.Caption = ""
Option3.Caption = ""
Option4.Caption = ""
End Sub


Public Sub wt1()
Label1.Caption = "公司有几种抢救台?"
Option1.Caption = "1种"
Option2.Caption = "2种"
Option3.Caption = "3种"
Option4.Caption = "4种"
End Sub

Public Sub wt2()
Label1.Caption = "公司暖箱有几种控温仪?"
Option1.Caption = "1种"
Option2.Caption = "2种"
Option3.Caption = "3种"
Option4.Caption = "4种"
End Sub
搜索更多相关主题的帖子: 子程序 自动 
2013-04-12 10:22
xbj_hyml
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:24
专家分:114
注 册:2012-11-28
收藏
得分:10 
wt & y ? 这个是调用一个过程,VB里好像不能 这样用吧
    要实现的话 就笨一点,用判断语句if..else.. 或者 select 语句做
        if y=1 then wt1
        if y=2 then wt2 ...
    ----以我目前的水平 大概是这样的..

懂点基础--好多控件不知道--NB代码不会写--所以一直求教中...
2013-04-12 10:47
zy32361414
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-4-12
收藏
得分:0 
O(∩_∩)O~比较麻烦点 谢谢
2013-04-12 12:06
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
新建一个类。

你的函数都建到类里。
比如,类的名字叫 Class1
这个类不需要封装,也就是不需要接口。
程序代码:
Option Explicit

Public Sub wt1()
With Form1
.Label1.Caption = "公司有几种抢救台?"
.Option1.Caption = "1种"
.Option2.Caption = "2种"
.Option3.Caption = "3种"
.Option4.Caption = "4种"
End With
End Sub

Public Sub wt2()

With Form1
.Label1.Caption = "公司暖箱有几种控温仪?"
.Option1.Caption = "1种"
.Option2.Caption = "2种"
.Option3.Caption = "3种"
.Option4.Caption = "4种"

End With
End Sub


Public Sub clear()
With Form1
.Label1.Caption = ""
.Option1.Caption = ""
.Option2.Caption = ""
.Option3.Caption = ""
.Option4.Caption = ""
End With
End Sub


窗体的调用代码如下:
程序代码:
Option Explicit

Private Sub Command1_Click()

Dim k As New Class1                       
Dim x As Integer, y
For y = 1 To 2
If Option3.Value = True Then
x = x + 5
Else
x = x
End If
Call k.clear
CallByName k, "wt" & y, VbMethod
Next y
End Sub


没看懂你怎么才能调用这几个函数去。就是Y 生成 1 和2 。
我只能做到能够调用到这个几个函数。

授人于鱼,不如授人于渔
早已停用QQ了
2013-04-12 16:16
快速回复:子程序自动循环运行求教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017075 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved