7,763
社区成员
发帖
与我相关
我的任务
分享简单问题，50分送
1. 编程求Sum=1+（1+2）+（1+2+3）+…（1+2+3+…+n），其中n由用户输入。单击窗体出现结果。
2. 编写一段程序，使该事件过程首先产生一个对话框，对话框有三个按钮，分别是：是、否、取消。如果选择“是”，则在窗体上打印返回值的平方；如果选择“否”，则在窗体上打印“你选择了‘否（N）’”。
MM要求帮忙，我没有时间。呵呵，会的出手一下。
2. 编写一段程序，使该事件过程首先产生一个对话框，对话框有三个按钮，分别是：是、否、取消。如果选择“是”，则在窗体上打印返回值的平方；如果选择“否”，则在窗体上打印“你选择了‘否（N）’”。
MM要求帮忙，我没有时间。呵呵，会的出手一下。
...全文
请发表友善的回复…
发表回复
Mars.CN 2004-12-10
- 打赏
- 举报
问题一：
for i=1 to n
for f=1 to 1
aa=aa+f
next
bb=bb+aa
next
pring aa
问题二：
x = msgbox("请选择……", vbyesnocancel)
if x=6 then
print bb^2
elseif x=7 then
print "您选择了否"
else
print "您取消了"
end if
for i=1 to n
for f=1 to 1
aa=aa+f
next
bb=bb+aa
next
pring aa
问题二：
x = msgbox("请选择……", vbyesnocancel)
if x=6 then
print bb^2
elseif x=7 then
print "您选择了否"
else
print "您取消了"
end if
ZhangYv 2004-12-09
- 打赏
- 举报
OK，这个问题搞定了。不用回复：）
ZhangYv 2004-12-09
- 打赏
- 举报
第一题:
Dim n As Integer
Private Sub Form_Click()
Dim sum As Integer
For i = 1 To n
For j = 1 To i
sum = sum + j
Next
Next
Print sum
End Sub
Private Sub Form_Load()
n = InputBox("请输出一个数字")
End Sub
第二题:
Private Sub Form_Load()
Dim ret As Integer
Me.Show
ret = MsgBox("请选择……", vbYesNoCancel)
If ret = vbYes Then
Me.Print ret ^ 2
ElseIf ret = vbNo Then
Me.Print "你选择了‘否（N）’"
End If
End Sub
Dim n As Integer
Private Sub Form_Click()
Dim sum As Integer
For i = 1 To n
For j = 1 To i
sum = sum + j
Next
Next
Print sum
End Sub
Private Sub Form_Load()
n = InputBox("请输出一个数字")
End Sub
第二题:
Private Sub Form_Load()
Dim ret As Integer
Me.Show
ret = MsgBox("请选择……", vbYesNoCancel)
If ret = vbYes Then
Me.Print ret ^ 2
ElseIf ret = vbNo Then
Me.Print "你选择了‘否（N）’"
End If
End Sub
qingyun67 2004-12-09
- 打赏
- 举报
按纽名 内置常量 返回值
OK vbOK 1
Cancel VbCancel 2
Abort vbAbort 3
Retry vbRetry 4
Ignore VbIgnore 5
Yes vbYes 6
No vbNo 7
OK vbOK 1
Cancel VbCancel 2
Abort vbAbort 3
Retry vbRetry 4
Ignore VbIgnore 5
Yes vbYes 6
No vbNo 7
cindytsai 2004-12-09
- 打赏
- 举报
虚心学习
qingyun67 2004-12-09
- 打赏
- 举报
第一问直接加了2楼的
qingyun67 2004-12-09
- 打赏
- 举报
Private Sub Command1_Click()
Dim inputnum As Integer, i As Integer, sumnum As Integer, j As Integer, sumlast As Integer
Dim Response
n = CInt(Text1.Text)
sumnum1 = 0
sumlast = 0
For j = 1 To n
For i = 1 To j
sumnum1 = sumnum1 + i
Next i
sumlast = sumlast + sumnum1
sumnum1 = 0
Next j
Label1.Caption = "结果是：" & sumlast
Response = MsgBox("要计算平方的结果么？", vbYesNoCancel, "退出")
If Response = 6 Then
Label2.Caption = sumlast * sumlast
ElseIf Response = 7 Then
Label2.Caption = "你选择了‘否（N）’”"
End If
End Sub
Dim inputnum As Integer, i As Integer, sumnum As Integer, j As Integer, sumlast As Integer
Dim Response
n = CInt(Text1.Text)
sumnum1 = 0
sumlast = 0
For j = 1 To n
For i = 1 To j
sumnum1 = sumnum1 + i
Next i
sumlast = sumlast + sumnum1
sumnum1 = 0
Next j
Label1.Caption = "结果是：" & sumlast
Response = MsgBox("要计算平方的结果么？", vbYesNoCancel, "退出")
If Response = 6 Then
Label2.Caption = sumlast * sumlast
ElseIf Response = 7 Then
Label2.Caption = "你选择了‘否（N）’”"
End If
End Sub
ezlj 2004-12-09
- 打赏
- 举报
补充to2楼你那算法效率不高哦，根本不用n^2哦
sumnum1=0
sumlast=0
for j=1 to n
sumnum1=sumnum1+j 循环次数
sumlast=sumlast+sumnum1 j 1 2 3
sumnum1 1 1+2 1+2+3
next j sumlast 1 1+（1+2） 1+（1+2）+（1+2+3）
sumnum1=0
sumlast=0
for j=1 to n
sumnum1=sumnum1+j 循环次数
sumlast=sumlast+sumnum1 j 1 2 3
sumnum1 1 1+2 1+2+3
next j sumlast 1 1+（1+2） 1+（1+2）+（1+2+3）
northwolves 2004-12-09
- 打赏
- 举报
1.
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, i As Integer, x() As String, sum As Long
sum = 0
n = InputBox("please enter an integer", "information", 5)
ReDim x(1 To n)
For i = 1 To n
sum = sum + result(i, x(i))
Next
MsgBox Join(x, "+") & "=" & sum
End Sub
Function result(ByVal n As Integer, ByRef expression As String) As Long
Dim i As Integer, a() As String, sum As Long
sum = 0
ReDim a(1 To n)
For i = 1 To n
a(i) = i
sum = sum + i
Next
result = sum
expression = "(" & Join(a, "+") & ")"
If n = 1 Then expression = 1
End Function
2.
Private Sub Command1_Click()
Dim i As Long, temp As Integer
temp = Int(Rnd * 100)
i = MsgBox(temp, vbYesNoCancel, "information")
If i = vbYes Then Print temp
If i = vbNo Then Print "你选择了‘否（N）’"
End Sub
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, i As Integer, x() As String, sum As Long
sum = 0
n = InputBox("please enter an integer", "information", 5)
ReDim x(1 To n)
For i = 1 To n
sum = sum + result(i, x(i))
Next
MsgBox Join(x, "+") & "=" & sum
End Sub
Function result(ByVal n As Integer, ByRef expression As String) As Long
Dim i As Integer, a() As String, sum As Long
sum = 0
ReDim a(1 To n)
For i = 1 To n
a(i) = i
sum = sum + i
Next
result = sum
expression = "(" & Join(a, "+") & ")"
If n = 1 Then expression = 1
End Function
2.
Private Sub Command1_Click()
Dim i As Long, temp As Integer
temp = Int(Rnd * 100)
i = MsgBox(temp, vbYesNoCancel, "information")
If i = vbYes Then Print temp
If i = vbNo Then Print "你选择了‘否（N）’"
End Sub
helanshan 2004-12-09
- 打赏
- 举报
第一题:
Dim n As Integer
Private Sub Form_Click()
Dim sum As Integer
For i = 1 To n
For j = 1 To i
sum = sum + j
Next
Next
Print sum
End Sub
Private Sub Form_Load()
n = InputBox("请输出一个数字")
End Sub
Dim n As Integer
Private Sub Form_Click()
Dim sum As Integer
For i = 1 To n
For j = 1 To i
sum = sum + j
Next
Next
Print sum
End Sub
Private Sub Form_Load()
n = InputBox("请输出一个数字")
End Sub
TrueYi 2004-12-09
- 打赏
- 举报
呵,我三角就可以来,,,,,,
aohan 2004-12-09
- 打赏
- 举报
不会吧，这种题，三星来求解?
cindytsai 2004-12-09
- 打赏
- 举报
还可以哦。
AprilSong 2004-12-09
- 打赏
- 举报
第二个……
Private Sub Form_Load()
Dim ret As Integer
Me.Show
ret = MsgBox("请选择……", vbYesNoCancel)
If ret = vbYes Then
Me.Print ret ^ 2
ElseIf ret = vbNo Then
Me.Print "你选择了‘否（N）’"
End If
End Sub
Private Sub Form_Load()
Dim ret As Integer
Me.Show
ret = MsgBox("请选择……", vbYesNoCancel)
If ret = vbYes Then
Me.Print ret ^ 2
ElseIf ret = vbNo Then
Me.Print "你选择了‘否（N）’"
End If
End Sub
cindytsai 2004-12-09
- 打赏
- 举报
手上没有参考书，所以没记得相关的参数，第二题做不了。 :S
cindytsai 2004-12-09
- 打赏
- 举报
private sub command1_click() '“计算按钮”
dim inputnum as integer,i as integer,sumnum as integer,j as integer, sumlast as integer
n=text1.text
sumnum1=0
sumlast=0
for j=1 to n
for i=1 to j
sumnum1=sumnum1+i
next i
sumlast=sumlast+sumnum1
sumnum1=0
next j
label1.caption="结果是："& sumlast
end sub
dim inputnum as integer,i as integer,sumnum as integer,j as integer, sumlast as integer
n=text1.text
sumnum1=0
sumlast=0
for j=1 to n
for i=1 to j
sumnum1=sumnum1+i
next i
sumlast=sumlast+sumnum1
sumnum1=0
next j
label1.caption="结果是："& sumlast
end sub
