如何用vb的print命令输出这个

发布网友发布时间：2024-10-09 19:18

共2个回答

热心网友时间：2024-10-09 20:02

Private Sub Form_Click() '当单击窗体时执行本过程
n = InputBox("请输入n的值：") '出现一个输入框，输入n的值
For i = 1 To Val(n) '从1到n进行循环计算
If Int(i Mod 2) Then Fh = "-" Else Fh = "+" 'Fh是一个变量，记载是正号还是负号。如果被计算的数值为偶数则为负号，否则为正号
If i = Val(n) Then Ss = Ss & i & "=" Else Ss = Ss & i & Fh '变量Ss记载算式1-2+3-4…如果已经计算到最后一个数，则后面加一个“=”
Sum = Sum + (-1) ^ (i + 1) * i '变量Sum存放计算的结果
Next i
Print Ss & Sum '打印算式和结果
End Sub

热心网友时间：2024-10-09 20:00

Next a

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com