VB中Print语句怎么用?

例:有Form1、Form2、Form3三个窗口,Form1中设有两个Frame控件和两个Lable控件,一组Frame.caption为蔬菜,里面包含黄瓜单选钮和茄子单... 例:有Form1、Form2、Form3三个窗口,Form1中设有两个Frame控件和两个Lable控件,一组Frame.caption为蔬菜,里面包含黄瓜单选钮和茄子单选钮,另一组是Frame.caption为水果,里面包含草莓单选钮和甜橙单选钮。当蔬菜那组内容被选中时,Lable1中会出现:您选择的是“被选中的内容”;同时水果组内容被选中时Label2中会出现:您选择的是“被选中的内容”。Form2中同样设有两个Frame控件和两个Lable控件,一组Frame.caption为巧克力,里面包含黑巧克力和白巧克力两个复选框,另一组是Frame.caption为糖果,里面包含苹果糖和玉米糖两个复选框,当巧克力组被选中时,Label1中出现:您选择的是“被选中的内容;同时糖果组被选中时,Label2出现:您选择的是“被选中的内容”。
求:Form3的内容为Form1和Form2中四个Label控件里的内容,并随Label控件内容的变化而变化。(对VB的掌握一如我的用户名,诚求各位帮助,谢谢)
展开
 我来答
豆漠义友珊
2019-05-17 · TA获得超过3764个赞
知道大有可为答主
回答量:3011
采纳率:24%
帮助的人:241万
展开全部
print
"a"
是输出字符串a
。就是直接输出引号内的。
print
a
是输出程序内
a的当前值
print就是打印的意思。
比如空的print
意思就是空行。
比如
a=3
b=4
print
"a";a;b
print
显示的结果就是
a
3
4
(空行)
mosquitokobe
2009-02-04 · TA获得超过4253个赞
知道大有可为答主
回答量:5008
采纳率:50%
帮助的人:0
展开全部
Private Sub Form_Load()
Frame1.Caption = "蔬菜"
Frame2.Caption = "水果"
Option1.Caption = "黄瓜"
Option2.Caption = "茄子"
Option3.Caption = "草莓"
Option4.Caption = "甜橙"
Label1.Visible = False
Label2.Visible = False
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Form3.Show

End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
Label1.Caption = Option1.Caption
Form3.Print Label1.Caption
Label1.Visible = True
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label1.Caption = Option2.Caption
Form3.Print Label1.Caption
Label1.Visible = True
End If
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Label2.Caption = Option3.Caption
Form3.Print Label2.Caption
Label2.Visible = True
End If
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then
Label2.Caption = Option4.Caption
Form3.Print Label2.Caption
Label2.Visible = True
End If
End Sub

窗体1代码如上~窗体2我就省略和1一样 窗体3就不需要代码了。~
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ping3108
2009-02-04 · TA获得超过551个赞
知道小有建树答主
回答量:205
采纳率:0%
帮助的人:136万
展开全部
楼主如果还是做不出来的话,可以把邮箱留下,我把我用VB6.0做的一个例子给你发过去,解压之后就能运行了,你可以参考下。

好像你的邮箱是qinyehong@126.com是吧?我已经发过去了。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式