文件名称:Visual Basic 编程练习题
文件大小:419KB
文件格式:RAR
更新时间:2014-03-28 12:40:33
VB,练习
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
【文件预览】:
VBlx
----综合作业一.doc(138KB)
----动画1()
--------工程1.vbp(644B)
--------MSSCCPRJ.SCC(190B)
--------FrmEx1_3_1.frm(5KB)
--------frmEx1_3_2.frx(28KB)
--------FrmEx1_3_1.frx(82KB)
--------FrmEx1_3_0.frx(264KB)
--------工程1.vbw(166B)
--------frmEx1_3_2.frm(1KB)
--------FrmEx1_3_0.frm(2KB)
----zonghe1.bmp(353KB)
----综合练习1()
--------Form1.frm(13KB)
--------工程1.vbp(592B)
--------MSSCCPRJ.SCC(190B)
--------Form1.frx(164B)
--------工程1.vbw(49B)
----zonghe3.bmp(32KB)
----滚动字幕()
--------Form1.frm(4KB)
--------工程1.vbp(592B)
--------MSSCCPRJ.SCC(190B)
--------工程1.vbw(49B)
----zonghe2.bmp(390KB)
----综合练习2()
--------Form1.frm(5KB)
--------工程1.vbp(592B)
--------MSSCCPRJ.SCC(190B)
--------工程1.vbw(49B)