vb代码 计算1!+2!+3!+...+N！，N为随机一正整数 单击计算命名按钮commamd1，结

Posted 2023-03-24

计算1!+2!+3!+...+N！，N为随机一正整数 单击计算命名按钮commamd1，结果显示在label1中

1.阶乘这个东西要非常小心，否则常死机，要控制阶乘的计算，按键设定某一按键退出计算；
2.建议进行优化，前一个阶乘的数据出来以后，直接计算加入下一个，否则效率极低；
3.建议设置一个进度条，检测计算次数并显示进度，否则不知道计算合适停止；
4.建议您反计算结果为VB长整数最大数值时的N值，限制输入的N要小于该估算数，否则结果溢出没有意义。 参考技术A 需要两个文本框，文本和两个按钮的命令（明确计算）
昏暗的X，A，B，K为字符串
子Command1_Click（）
一个=瓦尔（Text1.文本） BR />
X = 2
诠释（一）
如果= 1，则
Text2.Text =“，它不是一个质数，也不是合数“，
其他
MSGBOX”请输入数据“，vbOKOnly + vbInformation，”提示
结束如果

其他
BR />做，而A / 2 = INT（A / 2）= 4>

如果b = 0，然后
Text2.Text = Text2.Text＆“2”<BR / B = 1
其他
Text2.Text = Text2.Text＆“* 2”
结束如果
A = A / 2
K =
循环
虽然>
当x = 3，SQR（一）第2步
虽然A / X = INT（A / X）和A> = X * X

如果b = 0，然后
Text2.Text = Text2.Text＆X
B = 1
其他
Text2.Text = Text2.Text＆ “*”＆X
如果
= A / X
回路
下一步“
K =
= 1
圈 BR />
如果b = 1，则
Text2.Text = Text2.Text＆“*”＆K
其他
Text2.Text =“这是一个素数 / a>
结束如果结束如果
END SUB

私人小组Command2_Click（）
Text1.Text =“”
Text2.Text =“” BR />结束小组
多就是了，但有没有完美的哦
但已符合要求，你说 参考技术B Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("N="))
If n >= 1 Then
Dim jc, sum
jc = 1
For i = 1 To n
jc = jc * i
sum = sum + jc
Next i
Label1.Caption = sum
Else
MsgBox "输入的数不符合要求"
End If
End Sub

计算机vb： 逻辑型数据只有两个值：0和1。 答案： 错误 应该是啥？？？

参考技术A 1、 给三个变体型变量x、y、z,分别对三个变量赋值：x=1、y=1、z=x=y，那么变量z的值也是1（N）
2、 逻辑型数据只有两个值：0和1。 （N）
3、 InputBox函数返回值的类型是数值或字符串。（N）
4、 在VB中，运算 "Then" > "Than" 的结果是True。（Y）
5、 在VB中，运算 "ABCDE123A" Like "A*A" 的结果是True。（Y）
6、 通用过程中使用Static关键字定义的过程级变量都是静态变量。（Y）
7、 由Array函数建立的数组必须是Variant类型。（Y）
8、 文本框和标签控件有许多共同特点，它们都能显示和输入文本。（N）
9、 菜单一旦建成后，所有的菜单项均可识别Click事件。（Y）
10、 可以同时删除字符串前导和尾部空白的函数是Trim。（Y）
11、 一条赋值语句只能给一个变量赋值，不能给多个变量赋值。（Y） 参考技术B 应该是 true 和 False追问

不是值吗？应该是数值啊

追答

值是一种统称或者说是计算机的术语，根据变量的不同类型，值可以是数字、字符和True /False。