Private Sub srsjCKCaculate_Click()
Dim i As Integer
Dim SRSJ(48) As String
Dim sxxd, dzjf, dzcx, zzcx, rzxs, dtcl, lqfs, JYDJ, GGPph As String
Open App.Path + "\SRdat.dat" For Input Access Read Lock Read As #1
For i = 0 To 48
Input #1, SRSJ(i)
Next i
Input #1, sxxd, dzjf, dacx, zzcx, rzxs, dtcl, lafs, GGPph, JYDJ
Close #1
For i = 0 To 48
If Text1(i).Text = "" Then
MsgBox "尚未输入数据或输入数据不完整，请继续输入数据！"
GoTo 6
End If
If SRSJ(i) = "" Then
MsgBox "输入数据尚未保存，请保存后再进行电磁计算！"
GoTo 6
End If
Next i
If ComboSXXD.Text = "" Or ComboDZJF.Text = "" Or ComboDZCX.Text = "" Or ComboZZCX.Text = "" Or ComboRZXS.Text = "" Or ComboDTCL.Text = "" Or ComboLQFS.Text = "" Or ComboGGPph.Text = "" Or ComboJYDJ.Text = "" Then
MsgBox "尚未输入数据或输入数据不完整，请继续输入数据！"
GoTo 6
Next i
If sxxd = "" Or dzjf = "" Or dzcx = "" Or zzcx = "" Or dtcl = "" Or lqfs = "" Or GGPph = "" Or JYDJ = "" Then
MsgBox "输入数据尚未保存，请保存后再进行电磁计算！"
GoTo 6
End If
DCJS
6 End Sub
If Text1(i).Text = "" Then 这个位置 text1（）一直显示未定义子函数 这个适不适合C语言类似啊

你的程序界面怎么设计的？Text1这个名称默认是一个文本框，Text1(i)这种用法表示它是一个控件数组，你的界面上画文本框了么？名称是否正确？

Private Sub Forn_Load()
srsjCK.Top = 1000
srsjCK.Left = 2000
srsjCK.Height = 9015
srsjCK.Width = 11250
Call srsjCKClear
End Sub