荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: huhaiming (一生只爱她), 信区: Program
标 题: [合集]请救vb的输出问题
发信站: 荔园晨风BBS站 (Fri May 2 09:30:34 2003), 站内信件
kj (马路杀手？！) 于Sun Apr 13 22:18:56 2003提到：
我想用print输出用inputbox输入的数值
应该怎么表示啊
我试了n多方法也不行
是不是不可能输出啊
书上没有明写啊
哪位大侠救命啊！！！！
谢谢
SONY (学习online) 于Sun Apr 13 22:23:10 2003提到：
什么东东呀
Dim aa As String
aa = InputBox(Message, Title, Default)
Print aa
kj (马路杀手？！) 于Sun Apr 13 22:40:07 2003提到：
还是不行呀
我想用”**小时**分**秒=****秒“的格式输入到窗体的
应该怎么办？？？
程序就是下面这样了
Private Sub Form_Load()
Dim a As String, b As String, c As String
a = InputBox("请输入小时", "将时间转换成秒", "0")
b = InputBox("请输入分", "将时间转换成秒", "0")
c = InputBox("请输入秒", "将时间转换成秒", "0")
End Sub
Chengal (努力学习) 于Mon Apr 14 13:45:15 2003提到：
还是不行呀
我想用”**小时**分**秒=****秒“的格式输入到窗体的
应该怎么办？？？
程序就是下面这样了
Private Sub Form_click() this maybe better!
Dim a As String, b As String, c As String
a = InputBox("请输入小时", "将时间转换成秒", "0")
b = InputBox("请输入分", "将时间转换成秒", "0")
c = InputBox("请输入秒", "将时间转换成秒", "0")
dim i%,j%,k%
dim second%
i=val(a):j=val(b);k=val(c)
second=i*3600+j*60+k
print second
End Sub
biao (阿北?) 于Mon Apr 14 23:10:31 2003提到：
做作业吗？
先在“通用“里声明变量a,b,c,就像你那样
然后再在FORM的load中用“inputbox函数“－－就像你那样
然后在form的click中用”print"
试试看，我也是新手^_^
Chengal (努力学习) 于Tue Apr 15 13:46:35 2003提到：
ft !用print i;"小时";j;"分钟";k;"秒";"=";second;"秒"不就得了
做作业吗？
先在“通用“里声明变量a,b,c,就像你那样
然后再在FORM的load中用“inputbox函数“－－就像你那样
然后在form的click中用”print"
试试看，我也是新手^_^
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店