在窗体上画一个名称为command1的命令按纽,然后编写如下程序:
private sub convert(y as integer)
k=y:y=1
for j=1 to k
y=y*j
next j
end sub
private sub command1_click()
dim s as integer
sum =3
call convert(sum+1)
print sum
end sub
程序运行后,单击窗体,则窗体上显示的内容是 120
我怎么算也算不出是120啊!!!
private sub convert(y as integer)
k=y:y=1
for j=1 to k
y=y*j
next j
end sub
private sub command1_click()
dim s as integer
sum =3
call convert(sum+1)
print sum
end sub
程序运行后,单击窗体,则窗体上显示的内容是 120
我怎么算也算不出是120啊!!!
解决方案 »
- 怎么制作网址更新器?求高手
- ▲▲▲▲▲接接接接接分分分分分
- 向高手请教:WINDOWS 2000 下 ActiveReport关于WINDOWS的报表打印自定义纸张的问题
- 再问:mshflexgrid绑定记录集后不正常?
- 下载了《深入浅出MFC》电子书,开心,散分!
- 急!!!在excel中怎样合并单元格
- 请大家帮忙看一下这个奇怪的问题,谢谢了
- 如何从一个已知的子窗口找其父窗口的句柄?
- 关于datagrid控件和ADO记录集邦定,还有如何使datagrid单元格进入编辑状态。
- 使用vb语言把excel表格转换成txt文件
- 在VB中,如何获得本机CPU的序列号?
- 请问怎么看最新的300篇以后的贴子啊?~~
dim s as integer
sum =3
sum=convert(sum+1)
print sum
end sub
k = y: y = 1
For j = 1 To k + 1
y = y * j
Next j
convert = y
End Function
Private Sub command1_click()
Dim s As Integer
sum = 3
sum = convert(sum + 1)
Print sum
End Sub
这样会是120