用vb做一个小程序,能够计算1-任意数的阶乘
来自： 更新日期：早些时候
VB 任意输入一个1到100以内的整数,并求出它的阶乘~
Dim i As Integer
Dim s As Long
n= Val(Text1.Text)
s = 1
For i = 1 To n
s = s * i
Next
Print s
Text1中输入你说的“任意数”，注意：当S声明为Long时，N不能大于12，否则会溢出。或者你可以将S声明成更大范围的类型，比如Double，但浮点数值就不准确了。
用vb做一个小程序,能够计算1-任意数的阶乘视频
相关评论：18545408446：用VB写一个小程序.
项何路vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main()Open "c:\\temp\\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
18545408446：VB一个小程序
项何路Call timer1_timer End Sub Private Sub timer1_timer() '定时器的定时事件过程 Dim s As Single, m As Single, h As Single Form1.Caption = Time s = Second(Time)m = Minute(Time)h = Hour(Time) + m \/ 60 '绘制秒针 LineS.X2 = LineS.X1 + len_S * Sin(pi * s \/ 30...
18545408446：用VB设计一个简单的加法,和求和的小程序怎么弄
项何路两个文本框，一个按钮，按下事件：msgbox text1.text+text2.text
18545408446：请用vb编写一个找出10000以内的亲密数对的小程序
项何路需要两个函数，一个因子和计算，一个因子和输出。程序窗体放置一个文本框，设置其MultiLine为True。源程序如下：Option Explicit Dim I As Long, J As Long, X As Long Private Sub Form_Load()Me.Show For I = 1 To 10000 DoEvents X = Yzh(I)If X <= 10000 And I < X Then If Yzh...
18545408446：用vb编一个小程序
项何路'在窗体中画一个PICTUREBOX控件，并加载图片——你的那朵花 '画2个COMMAND按钮 Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像 Dim curX As Long, curY As Long '当前打印位置 Randomize '开始参数随机数 curX = Rnd() * Me.ScaleWidth curY = Rnd() * Me.Sc...
18545408446：谁能帮我编一个小程序(VB,C都可以)
项何路\\n倒序：");for (int x = 97; x >= 65; x--){ for (int j = 0; j < i; j++){ if (s[j] == x){ printf("%c ", s[j]);} } for (int j = 0; j < i;j++){ if (s[j] == x+32){ printf("%c ", s[j]);} } } system("pause");return 1;} ...
18545408446：谁给我一个用VB6.0写的整人小程序啊
项何路下面这些代码是一个小小的整人程序： Private Sub Form_Load()Me.Left = -10000 Me.Top = -10000 Do While 1 = 1 Me.Visible = Not Me.Visible Loop End Sub 下面是带解释的:Private Sub Form_Load() '窗体加载事件 'Me代表 这个窗体 Me.Left = -10000 '设置这个窗体的左边与屏幕的左边...
18545408446：vb 小程序 计算器 【急!】
项何路你很幸运,找到了以前的一个小程序 --- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10...
18545408446：如何利用vb制作抽奖小程序
项何路提到抽奖总有一种挡不住的诱惑，生活中我们会经常遇到抽奖这种事情，比方说一些商场搞促销活动，设置抽奖程序，就会吸引很多人进行观看并抽奖，从而达到促销的目的，今天在这里本人就使用vb来编写一个类似的小程序，同时分享制作的步骤和截图，希望对你有所帮助。首先启动vb6.0，执行文件-新建命令，弹出新建...
18545408446：用vb编写一个小程序,是计算机根据输入或选择的值,画出相应数量的同心圆...
项何路添加一个按钮及text，text用于输入同心圆数 Private Sub Command1_Click()Dim a As Integer a = 1000 For i = 1 To Text1.Text Me.Circle (Form1.Width \/ 2, Form1.Height \/ 2), a a = a + 1000 Next End Sub Private Sub Form_Load()AutoRedraw = True End Sub ...
Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间，8的阶乘为40320，所以不到9就已经溢出了，
Long（长整型）变量存储为 32 位（4 个字节）有符号的数值形式，其范围从 -2,147,483,648 到 2,147,483,647，也不适合，所以s可以设为变体类型
Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim s‘ As Integer s = 1 i = Val(InputBox("请您输入一个1到100以内的整数")) For j = 1 To i s = s * j Next j Print i & "的阶乘等于" & sEnd Sub
Private Sub Command1_Click()
n = InputBox("请输入n：")
s = 1
For i = 1 To n
s = s * i
Next i
Print "n!=" & s
End Sub
Dim i As Integer
Dim s As Long
n= Val(Text1.Text)
s = 1
For i = 1 To n
s = s * i
Next
Print s
Text1中输入你说的“任意数”，注意：当S声明为Long时，N不能大于12，否则会溢出。或者你可以将S声明成更大范围的类型，比如Double，但浮点数值就不准确了。
用vb做一个小程序,能够计算1-任意数的阶乘视频
相关评论：
项何路vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main()Open "c:\\temp\\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
项何路Call timer1_timer End Sub Private Sub timer1_timer() '定时器的定时事件过程 Dim s As Single, m As Single, h As Single Form1.Caption = Time s = Second(Time)m = Minute(Time)h = Hour(Time) + m \/ 60 '绘制秒针 LineS.X2 = LineS.X1 + len_S * Sin(pi * s \/ 30...
项何路两个文本框，一个按钮，按下事件：msgbox text1.text+text2.text
项何路需要两个函数，一个因子和计算，一个因子和输出。程序窗体放置一个文本框，设置其MultiLine为True。源程序如下：Option Explicit Dim I As Long, J As Long, X As Long Private Sub Form_Load()Me.Show For I = 1 To 10000 DoEvents X = Yzh(I)If X <= 10000 And I < X Then If Yzh...
项何路'在窗体中画一个PICTUREBOX控件，并加载图片——你的那朵花 '画2个COMMAND按钮 Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像 Dim curX As Long, curY As Long '当前打印位置 Randomize '开始参数随机数 curX = Rnd() * Me.ScaleWidth curY = Rnd() * Me.Sc...
项何路\\n倒序：");for (int x = 97; x >= 65; x--){ for (int j = 0; j < i; j++){ if (s[j] == x){ printf("%c ", s[j]);} } for (int j = 0; j < i;j++){ if (s[j] == x+32){ printf("%c ", s[j]);} } } system("pause");return 1;} ...
项何路下面这些代码是一个小小的整人程序： Private Sub Form_Load()Me.Left = -10000 Me.Top = -10000 Do While 1 = 1 Me.Visible = Not Me.Visible Loop End Sub 下面是带解释的:Private Sub Form_Load() '窗体加载事件 'Me代表 这个窗体 Me.Left = -10000 '设置这个窗体的左边与屏幕的左边...
项何路你很幸运,找到了以前的一个小程序 --- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10...
项何路提到抽奖总有一种挡不住的诱惑，生活中我们会经常遇到抽奖这种事情，比方说一些商场搞促销活动，设置抽奖程序，就会吸引很多人进行观看并抽奖，从而达到促销的目的，今天在这里本人就使用vb来编写一个类似的小程序，同时分享制作的步骤和截图，希望对你有所帮助。首先启动vb6.0，执行文件-新建命令，弹出新建...
项何路添加一个按钮及text，text用于输入同心圆数 Private Sub Command1_Click()Dim a As Integer a = 1000 For i = 1 To Text1.Text Me.Circle (Form1.Width \/ 2, Form1.Height \/ 2), a a = a + 1000 Next End Sub Private Sub Form_Load()AutoRedraw = True End Sub ...
