先发个自己觉得的有用东西---全国计算机等级考试二级VB上机考试系统 http://www.skycn.com/soft/16037.html我觉得很适合吧里的初学者和我这样急着过2级的人 反正我觉得不错就发了。然后~ 觉得每次都发贴问题 弄的贴吧凌乱不堪 所以就把菜鸟归结到一起发吧。菜鸟们互相帮助。更请吧主及高手们有空帮忙解答下哇~谢谢了！！！！！我先问 很菜的问题.....可我不会。我想做如图的那个程序 然后自己写的代码如下：Dim X As IntegerPrivate Sub Command1_Click()If Option1.Value = True ThenX = 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1ElseIf Option2.Value = True ThenX = 11 * 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1ElseOption3.Value = TrueX = 12 * 11 * 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1Text1.Text = XEnd IfEnd Sub这个....是哪块有问题？ 还是全部都有问题？很惆怅~

Else Option3.Value = True X = 12 * 11 * 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1 Text1.Text = X End If改成ElseIf Option3.Value = True ThenX = 12 * 11 * 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1 End IfText1.Text = X

还有Dim X As Integer 应该改成Dim X As long ，否则结果大于Integer数据类型的表示范围

真的很感谢楼上两位 谢谢你们！ 我按你们修改后 还是不行 我有些怀疑是不是这样代码的想法就是错的？不然实在想不通…………Dim X As LongPrivate Sub Command1_Click()If Option1.Value = True ThenX = 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1ElseIf Option2.Value = True ThenX = 11 * 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1ElseIf Option3.Value = True ThenX = 12 * 11 * 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1End IfText1.Text = XEnd Sub

是什么错误类型，把它显示的错误告诉大家

恩~ 运行的话 点按钮出现 实时错误‘6’ 溢出 我晕~ 好象明白了 是不是Dim X As 后面的类型的问题 ？ 我试着把X=后面的数换成很小的两个数相乘就可以正常运行了 那 Dim X As 后面应该是什么类型呢？

这样是否更好呢？！Private Sub Command1_Click() If Option1.Value = True Then X = multi(10) ElseIf Option2.Value = True Then X=multi(11)ElseIf Option3.Value = True Then X = multi(12) End If Text1.Text = X End Sub Private Function multi(num As Integer) As Long Dim i As Integer multi = 1 For i = 1 To num multi = multi * i NextEnd Function

应该不会出错的啊我使用 dim x as long 就没有出错

天~你写的代码好多了 而且感觉扩展性很强 我用的是 VB迷你版 我觉得不应该受版本影响才对真的太麻烦你了。我这里 把代码改成下面这样就行 把那一大串数加上就不行..很奇怪~ 总之在你那里实验行就OK啦 说明整体思路还有点道理为我的VB学习迈进很大一步 哈哈大概是我版本的问题 Dim X As LongPrivate Sub Command1_Click()If Option1.Value = True ThenX = 10 * 9ElseIf Option2.Value = True ThenX = 11 * 10ElseIf Option3.Value = True ThenX = 12 * 11End IfText1.Text = XEnd Sub

Private Function multi(num As Integer) As LongFunction.........还没学过这个函数 看来是以后的目标了收藏先~

你会photoshop？我怎么用都还没入门，Flash倒是会一点，平常也喜欢搞点图案动画之类的，大家可以交个朋友

那个函数是我自己写的啊，书上没有的

恩 挺喜欢PHOTOSHOP的` 自我感觉勉强还行 那个比VB简单多了 55555555555555555555 打算学学的话 可以讨论 PS基础的东西自我感觉还是没问题的。QQ：357620090 可以互相帮助了 哈~很可惜要开学了 -_-!