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

wanzhan2

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

hexinchun

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

CrCat

强烈地支持！！ :)

zxwgod

建议,弄个专贴给新手布置作业，从易到难，一点点来，从作业来体现学习VB的路~

Emugua

求VB作业解答的，太多了，简直是中国计算机教育的悲哀。

wanzhan2

程序题目是
设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
结果出来老是说我参数不对什么的,所以麻烦各位邦我看看

wanzhan2

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

jay36

人人都该来看看

laiweisheng5418

建议严惩发重复贴的行为

vb之魂

这版规不错,这里的VBGOODER都应该要遵守的,这样论坛才会持续稳定地发展!