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

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

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

新建一个类。

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