子程序自动循环运行求教 - 编程论坛

#2

xbj_hyml2013-04-12 10:47

wt & y ？这个是调用一个过程，VB里好像不能这样用吧
    要实现的话就笨一点，用判断语句if..else.. 或者 select 语句做
        if y=1 then wt1
        if y=2 then wt2 ...
    ----以我目前的水平大概是这样的..

#3

zy323614142013-04-12 12:06

O(∩_∩)O~比较麻烦点谢谢

#4

风吹过b2013-04-12 16:16

新建一个类。

你的函数都建到类里。
比如，类的名字叫 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 。
我只能做到能够调用到这个几个函数。