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年9月7日 04:20
下载mysql的步骤（win10安装mysql的步骤和方法）
2026年9月7日 04:10
2026年9月7日 03:50
2026年9月7日 03:40
checked in（check in和check out的区别）
2026年9月7日 01:20
java经典上机编程题（java上机题 请问这道题应该怎么写）
2026年9月7日 01:10
影视剧中有哪些剧情颠覆了你的三观？金庸的武侠小说《白马啸西风》为什么没有被拍成电影或者电视剧
2026年9月7日 00:30
mysql varchar和char的区别（mysql中char、varchar、nvarchar区别）
2026年9月7日 00:10
linux命令的选项和参数（linux为什么要有参数和选项）
2026年9月6日 20:20
2026年9月6日 18:40
