vb将数值型过滤_学习VB编程第22天 for循环做累乘累加绕晕了

今天是我学习VB编程的第22天，今天学习了刘金玉老师的零基础VB教程第29期，内容是累加与累乘。

一、累加与累乘

1.累加：1+2+3+。。。。。。+n

2.累乘：1*2*3*。。。。。。*n

3.补充知识

①数据类型：浮点型数据：single单精度浮点型， double双精度浮点型(这是数值型表示范围最大的一个数据类型)。

②char函数，将ASCII码转换成对应的字符。表达为char(ASCII码值)，键盘上的每一个按键都有对应的ASCII码值。

③not函数，取反的意识，在条件前加not表示对应范围相反的内容。

4.text输入框只能输入数值

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Dim k%

k = KeyCode

'验测只能输入数值，如果不是就置空，并提示输入错误

If Not (Chr(KeyCode) >= "0" And Chr(KeyCode) <= "9") Then

Text1.Text = ""

MsgBox "只能输入数字"

End If

End Sub

4.text输入框只能输入0-100范围的数值

Private Sub Command1_Click()

Dim x As Double

x = Val(Text1.Text)

If Not (x >= 1 And x <= 100) Then

MsgBox "只能输入1到100之间的数字"

Text1.Text = ""

End If

End Sub

5.利用for循环做累乘累加计算

Private Sub Command1_Click()

Dim ex As Double

ex = 1

Dim i%, j%

For i = 1 To x Step 1

Dim fz As Double

fz = 1

For j = 1 To i Step 1

fz = fz * x

Next j

Dim fm As Double

fm = 1

For j = 1 To i Step 1

fm = fm * j

Next j

Dim c As Double

c = fz / fm

ex = ex + c

Next i

Print ex

End Sub

最后这个例子把我绕晕了，懵逼中。