Question

vb自动类型

If qh = 1 Then
Call qh1
ElseIf qh = 2 Then
Call qh2
……
ElseIf qh = 100 Then
Call qh100

End If

这句话如何简写

Answer 1

简写的话只能用VB的CallByName,但这样的话,你的qh1-qh100这些过程必须放到一个对象(窗体,类模块都行,不能是模块)

假设你放在Form1里面,调用代码这样 注意,qh1-qh100 要用Public声明

CallByName Form1, "qh" & qh, VbMethod

关于CallByName的应用,你可以参阅MSDN,这个函数支持对象方法的调用,还支持结果返回...

Answer 2

文本.txt 和Text1.Text 当然什么都没有
如果你要读取数据试试
Private Sub Command1_Click()
Dim inputdata
Open App.Path & "\文本.txt" For Input As #1
Do While Not EOF(1)
Input #1, inputdata
Text1.Text = Text1.Text + inputdata
Loop
Close #1
End Sub
如果你要写入数据试试
Private Sub Command1_Click()
Open App.Path & "\文件.txt" For Output As #1
Print #1, Text1.Text
Close
MsgBox "已经将信息写入 文件.txt 文件中！", vbInformation, "信息提示"
End Sub

Answer 3

用select case 吧...

Answer 4

if qh>=0 and qh<=100 then
i=qh
call qh(i)

Answer 5

Call qh(qh)

追问

不对