用VB编程：大家帮帮忙吧。。本人在此谢过啦！！！！！
'求从1到200的偶数的和?
Private Sub Command1_Click()
For i = 2 To 200 Step 2
s = s + i
Next
Print s
End Sub
'求从1到100的递归。 问的模糊，我估计是求和递归（1+2+……+100），因为求积的话100！数值太大了
1.求和递归
Private Function add(n As Long) As Long
If n = 1 Then add = 1
If n > 1 Then add = add(n - 1) + n
End Function
Private Sub Command1_Click()
Print add(100)
End Sub
已发，加分
22500（150）、44100（210）、44944（？）参考代码：
for i = 100 to 316 '100平方10000；316平方99856.车牌号5位
e = i * i
'MsgBox i
a = Int (e / 10000)
b = Int ((e mod 10000) / 1000)
c = Int ((e mod 100) / 10)
d = e mod 10
'MsgBox b
If a = b And c = d Then
MsgBox e
End If
Next
= =不懂。
这个貌似是数学的吧= =
用VB编程:大家帮帮忙吧。。本人在此谢过啦!!!
22500（150）、44100（210）、44944（？）参考代码：for i = 100 to 316 '100平方10000；316平方99856.车牌号5位 e = i * i 'MsgBox i a = Int (e \/ 10000)b = Int ((e mod 10000) \/ 1000)c = Int ((e mod 100) \/ 10)d = e mod 10 'MsgBox b If a = b And c ...
...麻烦各位帮帮忙,我刚接触vba,不太懂怎么编程序,谢谢各位了...
第一个问题解答如下： excel vba编程，答案在你打开的excel表格第一行（自己加起来吧，如果要加到一起也行，程序里加一个application.sum就行，自己试试哈，其它题你按照VB语言来改就行。)Sub kk()j = 1 For i = 1 To 1000 If i Mod 5 = 0 And i Mod 7 = 0 Then ActiveWorkbook.Active...
VB 编程作业,请帮帮忙!谢谢
三、1. Abs（-36）*Sqr（100）=36*10=360 2. 写成1\/2*y*t^2，0.5*y*t^2，y*t^2\/2都可以得出正确结果。
在vb中如何进行64位编程?大神们帮帮忙
不要，我装的就是32位的 silverlight可以vs2005上能开发 1、创建一个控件库 2、除掉项目所有的引用 3、右键点击项目然后查看项目属性 4、在Build标签点击高级按钮，在弹出的对话框中勾上“'Do not reference mscorlib.dll”复选框 5、手动添加对Silverlight安装目录（默认在\\Program Files\\Microsoft Sil...
VB 编程作业,请帮帮忙!谢谢
Text1.text="VB程序设计"所以此时Text1的文本框里就为"VB程序设计"（不包含引号）Text2.text=Text1.text 因为此时Text1里为"VB程序设计"，所以Text2文本框里也为"VB程序设计"Text1.text="ABCD"所以Text1文本框里变为了"ABCD"综上所述 Text1里为"ABCD"Text2里为"VB程序设计"...
帮我编写个程序 VB的～
= 2 To c If b(i) > max Then max = b(i)If b(i) < min Then min = b(i)Next i Print "你输入的数中最大为："; max, "最小为："; min End Sub 你输入学生分数后，最后按-1才会退出，记住一定要按-1 好啦，不信你可以在VB中做下，就会看到效果啦，不懂发消息问我！
急,大家帮帮忙,VB管理系统密码修改代码怎么写
一下程序代码中：【admin】是数据库中的管理员的表。【pass】是保存密码的字段名称。【name】是用户名 c:\\abc.mdb是数据库 dim rs,conn set rs=createobject("adodb.recordset")set conn=createobject("adodb.connection")conn.open "provider=microsoft.jet.oledb.4.0; data source=c:\\abc.mdb"r...
VB~~~拜托了!!大家帮帮忙~~明天要考了!!高分求~~2
2.Scale(-200,250)-(300,-100)3.Circle(15,15),10 4.4*11=44 5."a 3456"6.（图没发上来？不过其他几题可以超过5题啦）7.Scroll事件 Change事件 8.9.Text1.Text=""Form1.Cls List1.Clear Combo1.Clear 10.使用Circle方法在图片框Picture1上以(800，1000)为圆心，500为半径画圆 ...
vb程序设计中缺少语句结束 请大家帮帮忙Private Sub Command1_Click...
代码中的& 与变量名之间应该有空格隔开，你可以直接复制下面的代码，然后粘贴，修改如下：Private Sub Command1_Click()Dim hh%, mm%, ss%, Totals!Dim Outstr hh = Val(Text1)mm = Val(Text2)ss = Val(Text3)Totals = hh * 3600 + mm * 60 + ss Outstr = hh & "小时 " & mm ...
vb编程 声乐比赛评分程序 很着急,请高手帮忙
vb编程 声乐比赛评分程序 很着急,请高手帮忙 10 要求:1、五个评委对三个项目(声乐、理论、舞蹈)进行打分(各项分数在4-10之间,保留一位小数)。当按下亮分按钮由计算机自动给出选手的得分。选手姓名必须由、平均舞蹈成绩自己输入... 要求:1、五个评委对三个项目(声乐、理论、舞蹈)进行打分(各项分数在4-10...
子利附桂： 输入可以用一次性输入,模式为 1,2,3 分离用Split涵数, dim strComp() as string , _ tmpValue as string dim n1 as integer , _ n2 as integer , _ n3 as integer tmpvalue=replace(inputbox(＂请输入三角形的三边值,格式为:1,2,3＂),＂,＂,＂,＂) if ...
晋城市17063614165： vb 编程 请大家帮忙 - ？
子利附桂： dim max as double,avg as double, arr(1 to 10) as double , sum as double, cou as in...
晋城市17063614165： VB 编程的语句 不会写啊!请大家帮帮我啊!~？
子利附桂： '第一题, 当X>0时Y=1, 当X=0时Y=0, 当X<0时Y=-1 Function PrintY(ByVal x As Integer) As Integer PrintY = IIf(x, x - (x - 1), x - x) If x < 0 Then PrintY = x - (x + 1) End Function '第二题: 三数排序的问题. Function Sort(ByVal x As Integer, ByVal y ...
晋城市17063614165： vb编程 帮帮忙 很简单的？
子利附桂： 直接点右键菜单设计填上就行了
晋城市17063614165： 如何用VB编写这代码?,编程高手帮忙如何写这代码.细说,谢谢 - ？
子利附桂： 运行指定程序用SHELL函数,退出的代码如下: unload me Shell 函数 执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0. 语法 Shell(pathname[,windowstyle]) Shell 函数的语法含...
晋城市17063614165： 用VB编程1 - 2+3 - 4+... - n的计算并输出 - ？
子利附桂： 简单的代码: n= val(inputbox(＂输入大于1的整数:＂)) for i=1 to na=a+(-1)^(i+1)*i next print a
晋城市17063614165： 帮忙编一个VB小程序!？
子利附桂： Private Sub Command1_Click() Dim s(9, 9) As Integer For i = 1 To 9 For j = 1 To 9 s(i, j) = i * j Print Str(i) + ＂X＂ + Str(j) + ＂=＂ + Str(s(i, j)) Next j Next i End Sub
晋城市17063614165： VB编程!请问有谁会VB编程,请帮忙编一个计算器的!谢谢!很着急 ？
子利附桂： 我这有一个简单的计算器代码,只能加减乘除. 觉得合适就给点分. Option Explicit Dim flg As Boolean, op As Integer, first As Single Private Sub Command1_Click(Index ...
晋城市17063614165： 本人用vb编程来模拟升级武器,但发现其中出了很多问题,请各位高手帮帮忙吧,万分感谢 - ？
子利附桂： 你的代码有这么个毛病,如果当前等级为1,那么如果1级升2级成功,就会进入升3级的判断.如果此时2升3也成功了,就会进入3升4的判...
晋城市17063614165： 会VB编程的高手帮一下忙!？
子利附桂： Sum = 0 For i = 1000 To 2000 If i Mod 177 = 0 Then Print i Sum = Sum + i End If Next Print ＂SUM:＂ & Sum
