vb经典程序例题（2道VB程序题（最好在6.1前））
本文目录
2道VB程序题(最好在6.1前)
写程序
1.计算Resuif=1*2*3*4.....*N,其中N通过输入对话框(inputbox)输入
Private Sub Form_Click()
Dim N As Long, S As Long
Do
N = Val(InputBox("请输入N值(0《N《13:"))
Loop While N 《 1 Or N 》 12
S = 1
For i = 1 To N
S = S * i
Next
Print "1*2*3*...*N 当N=" & N & "时,结果为:" & S
End Sub
2.编写程序实现以下条件函数
1 当X》0时
Y = 0 当X=0时
-1 当X《0时
Function F(N as single) as integer
F=Sgn(N)
End Function
VB程序题
1、KeyPress
2、KeyAscii 》=48 AND KeyAscii 《=57
3、Text2.Text & Chr(KeyAscii)
以上是在Text2上将每次符合条件的字符都依次连接起来显示。如果是每次要在Text2上只显示一个字符，则将第3空改为：
Chr(KeyAscii)
VB程序题一道
1.定义了一个一维数组
2.a(0)=1,t=1
t不为3，所以a(1)=a(0)=1,i不为3，打印 1
3.a(1)=2,t=2
t不为3，所以a(1)=a(0)=2,i不为3，打印 2
4.a(2)=3,t=3,
t=3，所以打印a(2)=3,然后关键一步,不能结束,a(2)=a(0)=1,然后打印a(i)=1
这里打印了2个值 3 1
5.a(3)=4,t=4
不达到条件，所以a(4)=a(3)=4,满足i=3，所以a(4)=a(0)=1,打印a(3)=4
4
6.a(4)=5,t=5
不达到条件，所以a(5)=a(4)=5,不满足i=3,注意下面又有关键一步
a(4)=1(程序有的)
所以打印 1
答案是123141
更多文章：
2026年11月6日 22:50
2026年11月6日 22:20
2026年11月6日 21:50
2026年11月6日 21:30
dos命令清屏（Windows DOS内部命令详解04——del、ren、cls、ver、date、time）
2026年11月6日 15:40
constantly的用法及词组（英语时态对应的时间状语都有哪些）
2026年11月6日 15:20
sql2016安装后如何打开（怎么打开sql server 2016 管理工具）
2026年11月6日 15:10
2026年11月6日 12:50
2026年11月6日 12:20
arcgis怎么设置文本框样式？用JS怎么实现一个把一个文本框中的选中内容加粗，效果基本上和编辑器的加粗效果相同急需
2026年11月6日 10:50
