应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 【求助】此程序是书本上的，但是运行不了【已完结】
51/1返回列表
查看: 519  |  回复: 5
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

zyj8119

木虫 (著名写手)

[交流] 【求助】此程序是书本上的，但是运行不了【已完结】


代码是这样的：
CODE:
Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, k As Single, n As Integer
  Dim a As Integer, b As Integer
  n = Text1
  a = 10 ^ (n - 1): b = 10 ^ (n - 1)
  For i = a To b Step 2
   If Pd(i) Then
      k = Sqr(i)
      If k = Int(k) Then
        If Pd1((k)) Then
         List1.AddItem i & "=" & k & "^2"
        End If
      End If
    End If
   Next i
End Sub
Private Function Pd(n As Integer) As Boolean
  Dim j As Integer, s As String, k As Integer
  s = CStr(n)
  For j = 1 To Len(s)
     k = Val(Mid(s, j, 1))
     If k Mod 2 <> 0 Then Exit For
  Next j
  If j > Len(s) Then Pd = True
End Function
Private Function Pd1(n As Integer) As Boolean
  Dim j As Integer, s As String, k As Integer
  s = CStr(n)
  For j = 1 To Len(s)
     k = Val(Mid(s, j, 1))
     If k Mod 2 <> 0 Then Exit For
  Next j
  If j > Len(s) Then Pd = True
End Function
Private Sub Command2_Click()
   Text1 = " ": List1.Clear: Text1.SetFocus
End Sub
Private Sub Command3_Click()
   Unload Me
End Sub

但是运行不出来，不知道为什么？

[ Last edited by nono2009 on 2010-11-17 at 10:11 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼2010-11-15 10:34:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

magic7004

金虫 (职业作家)
zyj8119(金币+10):偶也是想学习的，只是性子有点急而已，多谢提醒。。。 2010-11-15 13:45:07
最近楼主很活跃啊。

我想说的是，楼主勤奋好学是好的，但是要注意方法，要养成思考和钻研的习惯。

遇到问题，我建议自己至少先研究个大半天以上，然后再到论坛上发帖提问，钻研的习惯对你进一步提高是非常必要的。

ps：楼主如果发帖是为了灌水，就忽略我上面的话吧。
赞一下 回复此楼
5楼2010-11-15 13:37:46
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

zyj8119

木虫 (著名写手)
ajian04:谢谢参与交流~ 2010-11-15 16:26:27
引用回帖:
Originally posted by zyj8119 at 2010-11-15 10:34:05:

代码是这样的：

[code]Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, k As Single, n As Integer
  Dim a As Integer ...

此贴已经解决，貌似CSDN上的回复超级快啊。。。
赞一下(1人) 回复此楼
2楼2010-11-15 11:19:48
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
★
ajian04(金币+1):谢谢参与交流~ 2010-11-15 16:26:34
引用回帖:
Originally posted by zyj8119 at 2010-11-15 11:19:48:

此贴已经解决，貌似CSDN上的回复超级快啊。。。

代码应该改为：
CODE:
Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, k As Single, n As Integer
  Dim a As Integer, b As Integer
  n = Val(Text1)///修改的地方
  a = 10 ^ (n - 1): b = 10 ^ (n - 1)
  For i = a To b Step 2
   If Pd(i) Then
      k = Sqr(i)
      If k = Int(k) Then
        If Pd1((k)) Then
         List1.AddItem i & "=" & k & "^2"
        End If
      End If
    End If
   Next i
End Sub
Private Function Pd(n As Integer) As Boolean
  Dim j As Integer, s As String, k As Integer
  s = CStr(n)
  For j = 1 To Len(s)
     k = Val(Mid(s, j, 1))
     If k Mod 2 <> 0 Then Exit For
  Next j
  If j > Len(s) Then Pd = True
End Function
Private Function Pd1(n As Integer) As Boolean
  Dim j As Integer, s As String, k As Integer
  s = CStr(n)
  For j = 1 To Len(s)
     k = Val(Mid(s, j, 1))
     If k Mod 2 <> 0 Then Exit For
  Next j
  If j > Len(s) Then Pd = True
End Function
Private Sub Command2_Click()
   Text1 = " ": List1.Clear: Text1.SetFocus
End Sub
Private Sub Command3_Click()
   Unload Me
End Sub
赞一下(1人) 回复此楼
3楼2010-11-15 11:20:56
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
引用回帖:
Originally posted by zyj8119 at 2010-11-15 11:20:56:

代码应该改为：
[code]Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, k As Single, n As Integer
  Dim a As Integer, b As Integer
  n = Val(Text1)///修改的地方
  a = 10 ^ (n  ...

此贴结贴。
回复此楼
4楼2010-11-15 11:21:28
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭