VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 54655|回复: 87

【新手学堂】 版规(试行)和建议收集!!!

  [复制链接]
 楼主| 发表于 2007-7-2 20:29:15 | 显示全部楼层 |阅读模式
本帖最后由 szdan 于 2009-7-28 23:56 编辑

【新手学堂】 版规(试行)

    前言:或许因为前些日子本人在论坛的时间较少,对该版存在的种种问题管理欠妥,所以呢,在此郑重地向大家表示歉意!!!
    为规范本版管理,为抵制恶意灌水及恶意广告的散播,为为广大新手营造一个良好的提问环境,为为广大高手更好地回答问题。制定本规。

一、正文
    一、恶意灌水, 一律删无赦!!!
        恶意灌水累计四次,禁止发言。(欢迎举报,举报加分,举报方法参见附录)
    二、恶意散布无用广告等(对新手有用的除外),删无赦!!!
        累计三次以上者,禁止发言。(欢迎举报,举报加分,举报方法参见附录)
    三、在本版口出脏话或其他有损本版形象行为者,予以警告,累计四次以上者,禁止发言。(欢迎举报,举报加分,举报方法参见附录)
    四、请新手们提问时,讲得清楚些,一方面减少冗余帖子,一方面也为其能在最短时间内得到最好的答复: 关于发贴子的一点建议
    五、请新手们在发问之前,先搜索一下论坛: 如何更好的提问
    六、请新手们如果认为他人对您的帮助有价值,请务必为其加分!
    七、请大家参考 文明礼节
    八、毕业*设计尽量自己做!!!
    九、本规为试行版,很不全面,请广大VBGooder提出建议(跟贴)!

二、附录

    举报方法:1.到举报收集贴: 举报专用帖
              2.给我或其他版主发短消息
    举报格式:不规定举报格式,给出连接和ID就可以.
发表于 2007-7-3 08:40:27 | 显示全部楼层
严重支持
回复 支持 反对

使用道具 举报

发表于 2007-7-6 08:40:10 | 显示全部楼层
论坛秩序靠大家,这里是用来学习的,虽然有积分制,但积分再高又怎样,能说明你能力比其他人强吗?不是绝对的,所以劝那些为了积分无聊灌水的人反思下,当然,我说这话那些帮助过很多人而取的高积分的不要误会,我是针对那些灌水狂人说的。
回复 支持 反对

使用道具 举报

发表于 2007-7-11 20:36:37 | 显示全部楼层
```楼上的说的不错```人就应该怎么``
回复 支持 反对

使用道具 举报

发表于 2007-7-19 14:52:22 | 显示全部楼层

楼主说的好啊
回复 支持 反对

使用道具 举报

发表于 2007-7-20 11:47:12 | 显示全部楼层
如果能推荐一些公认比较好的书籍,有一个学VB的流程攻略来置顶就好了,我是新手,别笑我
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-20 15:00:56 | 显示全部楼层
原帖由 yuling39 于 2007-7-20 11:47 发表
如果能推荐一些公认比较好的书籍,有一个学VB的流程攻略来置顶就好了,我是新手,别笑我


这个建议很好,我企划企划……
回复 支持 反对

使用道具 举报

发表于 2007-7-23 10:51:22 | 显示全部楼层
我是一个VB初学者,现碰到一个问题.编程题目是"判断一个正整数(>=3)是否为素数"
我是这样编的.
Private Sub Form_Click()
Dim r As Single                           &R是我随机输入的数
Dim ji As Single                          &JI是除后的商,
Dim m As Integer                          &M是计算JI是整数的计数器
m = 0
diyi:
  r = InputBox("请输入数字", 0)
  If r <> Int(r) Then
    GoTo diyi
  ElseIf r <> Abs(r) Then
    GoTo diyi
  End If
  For i = 2 To r - 1
     ji = r / i
     If ji = Int(ji) Then
       m = m + 1
     End If
  Next i
If m = 0 Then
     Print r, "这是素数"
     shuru = InputBox("是否再输入数字(y/n)")
     If shuru = "y" Then
        GoTo diyi
     Else
        End
     End If
ElseIf m <> 0 Then
     GoTo diyi
End If
End Sub

现在问题是,我一但输入被整除的数,后面就算输入素数也显是不出
回复 支持 反对

使用道具 举报

发表于 2007-7-23 11:33:09 | 显示全部楼层
问题解决,谢谢啦:)
回复 支持 反对

使用道具 举报

发表于 2007-8-6 11:01:13 | 显示全部楼层

又有问题要请教大家了

程序题目是这样的:
某单位开运动会,10人的成绩是这样的:
207号  14.5秒     077号  15.1秒       156号 14.2秒      231号   14.7秒
453号  15.2秒     276号  13.9秒       096号  15.7秒     122号  13.7秒      339号  14.9秒
302号  14.5秒
现要求按成绩排出名次,并按如下格式输出:
名次          运动员号            成绩
1             。。。              。。。
2             。。。              。。。
3             。。。              。。。
我的程序是这样编的:
Option Base 1
Dim zdsu1 As String
Dim zdsu2 As Single
Private Sub Form_Click()
Dim a(10) As String
Dim b(10) As String
Dim c(10) As Single
For i = 1 To 10
    a(i) = InputBox("输入运动员号")
    b(i) = InputBox("输入运动员成绩")
    c(i) = Val(b(i))
        Picture1.Print a(i); ""; c(i);
        Picture1.Print
    MsgBox ("输入下一个运动员号和成绩")
Next i
For i = 1 To 9
   For j = 1 To 10 - i
      If c(j) - c(j + 1) > 0 Then
         zdsu2 = c(j)
         zdsu1 = a(j)
         c(j) = c(j + 1)
         a(j) = a(j + 1)
         a(j + 1) = zdsu1
         c(j + 1) = zdsu2
      End If
   Next j
Next i
Picture2.Print "名次"; " 运动员号"; " 成绩"
Picture2.Print: Print
Print
For m = 1 To 10
   Picture2.Print m;
   Picture2.Print "  "; a(m); "  "; c(m);
   Picture2.Print
Next m
End Sub
但是成绩里的“秒”这个字老是出不来,所以麻烦大家指教一下
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-1 21:23

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表