VB编写程序,找出满足下述条件的所有四位自然数（在线等）

在窗体上建立一命令按钮，单击按钮可执行下列程序

Private Sub Command1_Click()

Dim a As Boolean, d As Boolean

Dim b As Long

Dim c As Integer

For i = 1000 To 9999

a = test(i)

If a = True Then

For c = 1 To 9

b = i - Val(String(4, Trim(Str(c))))

If b < 0 Then Exit For

d = test(b)

If d = True Then

Print i

Exit For

End If

Next

End If

Next

Print k

End Sub

'函数test 测试一个数是否是完全平方数

Private Function test(ByVal x As Long) As Boolean

If Int(Sqr(x)) = Sqr(x) Then

test = True

Else

test = False

End If

End Function

If Dir(xt & "\abc\abcexe") <> "" Or Dir(xt & "\WINDOWS\123") <> "" Then

改为

If Dir(xt & "\abc\abcexe") <> "" Or Dir(xt & "\WINDOWS\123", vbDirectory) <> "" Then

或者

If Dir(xt & "\abc\abcexe") <> "" Or Dir(xt & "\WINDOWS\123\nul") <> "" Then

意思就是你得让VB知道123是文件夹名而不是文件名！否则的话它按文件名去找123自然找不到！

我写的第二种方法是个偏门方法，但也很好用，你不用追究为什么，能用就行。

图2－11代码：

Private Sub Command1_Click()

Text4 = Mid(Text1, CInt(Text2), CInt(Text3))

End Sub

以上就是关于VB编写程序,找出满足下述条件的所有四位自然数（在线等）全部的内容，包括:VB编写程序,找出满足下述条件的所有四位自然数（在线等）、VB或语句的写法，或者、或者条件的。求大神指导。、VB程序图中的条件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！