Question

vb中显示format函数或子程序没有定义，如何解决。我就是对着坑爹的书本敲的，

Private Sub form_Click()
Dim s As String
Dim flag As Boolean
Dim x As Integer, i As Integer, c As Integer
Text1.Top = 0
Text1.Left = 0
Text1.Width = Form1.ScaleWidth
Text.Height = Form1.ScaleWidth
s = ""
s = s + String(18, "") + "1000以内的素数" + String(18, "")
s = s + vbCrLf
s = s + String(50, "-")
s = s + vbCrLf
For x = 1 To 100
flag = ture
For i = 2 To x \ 2 + 1
If x Mod i = 0 Then
flag = False
Exit For
End If
Next
If flag Then
s = s + fomat(x, "@@@")
c = c + 1
If c Mod 10 = 0 Then s = s + vbCrLf
End If
Next
Text1 = s
End Sub

Answer 1

format

~~~~~~~~

追问

那如何定义它，程序是显示这里错了

追答

你少写一个字母，是format不是fomat，与定义没有关系。

追问

是的，我改正了，额，还有一个问题，程序没有反应的，就是出不来1000以内的素数，我是了好多种界面了都不行。求解决下

追答

你的程序还有问题，书上会有错误，你的抄写同样会存在错误，请仔细检查第一步。

Answer 2

VBA.Format