开发工具:
文件大小: 419kb
下载次数: 0
上传时间: 2011-03-08
详细说明： Visual Basic 编程练习题，综合练习。 Private Sub Command2_Click() Text1.Text = Label1.Caption + ":" + Text2.Text + Chr(13) + Chr(10) Text1.Text = Text1.Text + Label2.Caption + ":" + Text3.Text + Chr(13) + Chr(10) Text1.Text = Text1.Text + Label4.Caption + ":" + Text4.Text + Chr(13) + Chr(10) If Option1.Value Then Text1.Text = Text1.Text + Frame1.Caption + ":" + Option1.Caption + Chr(13) + Chr(10) If Option2.Value Then Text1.Text = Text1.Text + Frame1.Caption + ":" + Option2.Caption + Chr(13) + Chr(10) If List1.ListIndex <> -1 Then Text1.Text = Text1.Text + Label6.Caption + ":" + List1.Text + Chr(13) + Chr(10) If List1.ListIndex <> -1 Then Text1.Text = Text1.Text + Label6.Caption + ":" + List1.Text + Chr(13) + Chr(10) Else Text1.Text = Text1.Text + Label6.Caption + ":" + Chr(13) + Chr(10) End If If Combo1.ListIndex <> -1 Then Text1.Text = Text1.Text + Label7.Caption + ":" + Combo1.Text + Chr(13) + Chr(10) Else Text1.Text = Text1.Text + Label6.Caption + ":" + Chr(13) + Chr(10) End If Text1.Text = Text1.Text + Label3.Caption + ":" + Chr(13) + Chr(10) If Check1.Value Then Text1.Text = Text1.Text + Check1.Caption + Chr(13) + Chr(10) If Check2.Value Then Text1.Text = Text1.Text + Check2.Caption + Chr(13) + Chr(10) If Check3.Value Then Text1.Text = Text1.Text + Check3.Caption + Chr(13) + Chr(10) If Check4.Value Then Text1.Text = Text1.Text + Check4.Caption + Chr(13) + Chr(10) If Check5.Value Then Text1.Text = Text1.Text + Check5.Caption + Chr(13) + Chr(10) If Check6.Value Then Text1.Text = Text1.Text + Check6.Caption + Chr(13) + Chr(10) If Check7.Value Then Text1.Text = Text1.Text + Check7.Caption + Chr(13) + Chr(10) If Check8.Value Then Text1.Text = Text1.Text + Check8.Caption + Chr(13) + Chr(10) Picture1.Visible = False Text1.Visible = True Command1.Visible = True End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
