Question

请各位帮帮忙~关于VB程序设计的！！

x希望大家帮忙一下呐~~我真的不会写 谢谢谢谢啦！！

第三题'题目：窗体中有若干控件，单击其中的一个按扭cmdput时，
' 执行如下的事件过程，该过程的功能是把数据输出到指定的文件中.
'请在【?】处填入正确的内容

'-------------------------------------------------------
'
'**********SPACE**********
Private Type 【?】
Number As String
Name As String
End Type
Private Sub cmdput_click()
Dim Title As String
Dim Str1 As String
Dim str2 As String
Dim stu As Student
Dim i As Integer
Open App.Path & "\student.dat" For Random As #1 Len = Len(stu)

Title = "写记录到随机文件"
Str1$ = "请输入学生号"
str2$ = "请输入学生名"
For i = 1 To 5
'**********SPACE**********
【?】.Number = InputBox(Str1$, Title$)
stu.Name = InputBox$(str2$, Title$)
Put #1, i, stu
Next i
'**********SPACE**********
Close 【?】
End Sub

Option Explicit

第四题'题目：打印出 100-999 之间的所有水仙花数
' 如果一个数的 百位，十位，个位数的立方和等于这个数本身
' 则这个数为水仙花数

'请在【?】处填入正确的内容

'-------------------------------------------------------
'

Private Sub Command1_Click()

Dim i As Integer, a As Integer, b As Integer, c As Integer
'**********SPACE**********
For i = 100 To 【?】
'**********SPACE**********
a = Int(i / 【?】)
b = Int((i - 100 * a) / 10)
'**********SPACE**********
c = i - 100 * a - 【?】
If a * a * a + b * b * b + c * c * c = i Then
Print i
End If
Next I
Option Explicit

'第五题题目：由输入对话框输入n（n必须为大于零且小于30的自然数），
' 计算下列表达式的值，并在标签框Label1上显示。
' sum=1/2+1/6+ ... +1/(k*(k+1)) (k<=n)

'请在【】处填入正确的内容

'-------------------------------------------------------
'

Private Sub Form_Click()

Dim n As Integer, sum As Double, k As Integer
n = Val(InputBox("n=", "请输入自然数n(n>0 且n<30)"))

'**********SPACE**********
Do While n <= 0 【?】 n >= 30
n = Val(InputBox("n=", "请重输入"))
Loop
sum = 0
k = 0
Do
'**********SPACE**********
k =【?】
sum = sum + 1 / (k * (k + 1))
'**********SPACE**********
Loop Until 【?】
Label1.Caption = "Sum=" + Str(sum)

End Sub

Option Explicit

Answer 1

'**********SPACE**********
Private Type 【Student】
Number As String
Name As String
End Type
Private Sub cmdput_click()
Dim Title As String
Dim Str1 As String
Dim str2 As String
Dim stu As Student
Dim i As Integer
Open App.Path & "\student.dat" For Random As #1 Len = Len(stu)

Title = "写记录到随机文件"
Str1$ = "请输入学生号"
str2$ = "请输入学生名"
For i = 1 To 5
'**********SPACE**********
【stu】.Number = InputBox(Str1$, Title$)
stu.Name = InputBox$(str2$, Title$)
Put #1, i, stu
Next i
'**********SPACE**********
Close 【#1】
End Sub

Option Explicit

第四题'题目：打印出 100-999 之间的所有水仙花数
' 如果一个数的 百位，十位，个位数的立方和等于这个数本身
' 则这个数为水仙花数

'请在【?】处填入正确的内容

'-------------------------------------------------------
'

Private Sub Command1_Click()

Dim i As Integer, a As Integer, b As Integer, c As Integer
'**********SPACE**********
For i = 100 To 【999】
'**********SPACE**********
a = Int(i / 【100】)
b = Int((i - 100 * a) / 10)
'**********SPACE**********
c = i - 100 * a - 【b*10】
If a * a * a + b * b * b + c * c * c = i Then
Print i
End If
Next I
Option Explicit

'第五题题目：由输入对话框输入n（n必须为大于零且小于30的自然数），
' 计算下列表达式的值，并在标签框Label1上显示。
' sum=1/2+1/6+ ... +1/(k*(k+1)) (k<=n)

'请在【】处填入正确的内容

'-------------------------------------------------------
'

Private Sub Form_Click()

Dim n As Integer, sum As Double, k As Integer
n = Val(InputBox("n=", "请输入自然数n(n>0 且n<30)"))

'**********SPACE**********
Do While n <= 0 【or】 n >= 30
n = Val(InputBox("n=", "请重输入"))
Loop
sum = 0
k = 0
Do
'**********SPACE**********
k =【k+1】
sum = sum + 1 / (k * (k + 1))
'**********SPACE**********
Loop Until 【k=n】
Label1.Caption = "Sum=" + Str(sum)

End Sub

Option Explicit