VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: xiayu1993

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

  [复制链接]
发表于 2007-8-6 11:10:43 | 显示全部楼层

还有一个问题请教下

我本想把关于上面的问题自己做的窗体截下来给大家看下,让大家帮我分析问题时省力点,可是我却不会操作,麻烦谁指教一下
回复 支持 反对

使用道具 举报

发表于 2007-8-8 20:22:45 | 显示全部楼层

建议

我建议斑竹能否弄个API专版出来,以供新手学习API的过程,把遇到的问题集中起来放在一个版块,方面高手解答,也方便新手更好更专的去学习!
该版可以把一些资料放上来,比如菜新院士的放到上面来,我觉得对学习API的初学者很有帮助,主题明确,初学者也能一下子就找到该主题来,以上属个人建议,还请斑竹和管理员参夺!
回复 支持 反对

使用道具 举报

发表于 2007-8-9 20:24:21 | 显示全部楼层
强烈地支持!! :)
回复 支持 反对

使用道具 举报

发表于 2007-8-10 21:27:01 | 显示全部楼层
建议,弄个专贴给新手布置作业,从易到难,一点点来,从作业来体现学习VB的路~

点评

顶  发表于 2011-9-30 09:51
回复 支持 反对

使用道具 举报

发表于 2007-8-20 10:31:02 | 显示全部楼层
求VB作业解答的,太多了,简直是中国计算机教育的悲哀。
回复 支持 反对

使用道具 举报

发表于 2007-8-20 12:21:03 | 显示全部楼层

又有问题请教各位了,

程序题目是
设a为一整数,如果能使a^2=xxa成立,则称a为“守形数”。例5^2=25,25^2=625,则5和25都是守形数.试编一个function过程 automorphic,其形参为一正整数,判断其是否为守形数,然后用该过程查找1-1000内的所有守形数


我是这样编的:
Function weisu(a As Integer)
Dim b As Integer
b = 1
Do While a > 10
   a = a \ 10
   b = b + 1
Loop
weisu = b
End Function
Function automorphic(c As Integer)
cc = c * c
ccs$ = Str$(cc)
cweisu% = weisu(c)
c1$ = Str$(c)
e$ = Right$(ccstr, cweisu)
If c1$ = e$ Then
   d$ = c1$ & "是守形数"
Else
   d$ = c1$ & "no是守形数"
End If
automorphic = d
End Function

Private Sub Form_Click()
Dim d As Integer
d = 1000
for I=1 to 1000
   print automorphic(i)
next I
End Sub
结果出来老是说我参数不对什么的,所以麻烦各位邦我看看
回复 支持 反对

使用道具 举报

发表于 2007-8-20 12:22:26 | 显示全部楼层
Function weisu(a As Integer)
Dim b As Integer
b = 1
Do While a > 10
   a = a \ 10
   b = b + 1
Loop
weisu = b
End Function



Function automorphic(c As Integer)
cc = c * c
ccs$ = Str$(cc)
cweisu% = weisu(c)
c1$ = Str$(c)
e$ = Right$(ccstr, cweisu)
If c1$ = e$ Then
   d$ = c1$ & "是守形数"
Else
   d$ = c1$ & "no是守形数"
End If
automorphic = d
End Function




Private Sub Form_Click()
Dim d As Integer
d = 1000
for I=1 to 1000
   print automorphic(i)
next I
End Sub
回复 支持 反对

使用道具 举报

发表于 2007-8-28 14:39:55 | 显示全部楼层
人人都该来看看
回复 支持 反对

使用道具 举报

发表于 2007-9-5 09:12:53 | 显示全部楼层
建议严惩发重复贴的行为
回复 支持 反对

使用道具 举报

发表于 2007-10-5 11:48:27 | 显示全部楼层
这版规不错,这里的VBGOODER都应该要遵守的,这样论坛才会持续稳定地发展!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2022-7-4 23:43

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