Question

vb编程！！高手快来！！考试急用~~

1.设计VB程序，求出1×2×3×……×70的值
2.设计VB程序，求出1+1/2+1/3+……+1/70的值
3.设计VB程序:假设窗体上已经有一个文本框text1和一个按钮command1，运行程序：按一下按钮，如果在文本框里输入的是“永中中学学生”，则窗体上输出“合法用户”，否则，执行关机命令。提示：执行关机命令的语句是shell(“shutdown –s –t 10”)
4.设计VB程序，求出1+2+3+……+70的值
5.设计VB程序，从窗体上输出1-1000之间被7整除或者被17整除的数

早来的还有额外悬赏！！！！！！！！！

Answer 1

我学过vb的，这些并不难
1：建立一个命令按钮、一个文本框
Private Sub Command1_Click()
s = 1
For i = 1 To 70
s = s * i
Next i
Text1.Text = s
End Sub
2：建立一个标签、一个文本框
Private Sub Command1_Click()
For i = 1 To 70
s = s + 1 / i
Next i
Label1.Caption = s
End Sub
3：
Private Sub Command1_Click()
If Text1.Text = "永中中学学生" Then
Print "合法用户"
Else
Shell ("shutdown –s –t 10")
End If
End Sub
4：同1
Private Sub Command1_Click()
For i = 1 To 70
s = s + i
Next i
Text1.Text = s
End Sub
5：
Private Sub Command1_Click()
For i = 1 To 1000
If i Mod 7 = 0 Or i Mod 17 = 0 Then
m = m + 1
Print i;
If m Mod 10 = 0 Then
Print
End If
Else
End If
Next
End Sub

Answer 2

编程实现1~500之间能被3和7整除，输出后十个一行显示，且输出满足条件的数嘿嘿,这个是VBA,我想和VB应该差不多的自己该下把.没有学过VB For

Answer 3

一、
dim i as interger
dim sum as interger
for i=1 to 70
sum=sum*(i+1)
next i
二、
dim i as interger
dim sum as interger
for i=1 to 70
sum=sum+(1/(i+1))
next i
三、
public sub command1_click()
if test1.text="永中中学学生" then
print "合法用户"
else
shell(“shutdown –s –t 10”)
end if
end sub
四、
dim i as interger
dim sum as interger
for i=1 to 70
sum=sum+(i+1)
next i
五、
dim i as interger
for i=1 to 1000
if i mod 7 =0 or i mod 17 =0 then
print i
end if
next i

Answer 4

在编程QQ群里问高手

21032683 VB-程序员之路①(我只加了这一个)
44538477 vb
299015 VB交流群
6436553 勇芳软件～VB技术1
3843314 VB爱好者
5225136 VB精英-精英友谊
21355589 VB情报局第十二分局
8304922 VB情报局第二分局