vb小程序我就想用VB做一个小程序

vb小程序

Private Sub Command1_Click() Form1.Cls CurrentX = 800 CurrentY = 1000 FontSize = 20 ForeColor = QBColor(8) Print "阴影字" CurrentX = 830 CurrentY = 1030 FontSize = 20 ForeColor = QBColor(12) Print "阴影字" End Sub Private Sub Command2_Click() Form1.Cls CurrentX = 800 CurrentY = 1000 FontSize = 20 ForeColor = QBColor(10) Print "立体字" CurrentX = 800 CurrentY = 1025 FontSize = 20 ForeColor = QBColor(5) Print "立体字" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Activate() ForeColor = QBColor(12) CurrentX = 800 CurrentY = 1000 FontSize = 20 Print "阴影字" End Sub

求10个VB简单小程序

第一个 text1="哎，现在的人啊..." 第二个 label1.cpation="能学到什么呢？" 第三个 me.caption="作业还要别人做....." 第四个 print "这个样子不是在欺骗自己么" 第五个 msgbox "学不到东西的，这样...." 第六个 do print "没前途" loop 第七个 for a = 1 to 9999....99 print "哎~~ " next a 第八个 if 现在学习=true then 还有得救 第九个 unload me 第十个 end ----------------全写在按钮事件中....够简单了把.....(-_-)|||

我就想用VB做一个小程序

Dim i As Integer Private Sub Command1_Click() i = i + 10 Text1.FontSize = i End Sub Private Sub Command2_Click() Unload Form1 Form2.Show End Sub 用2个Button 和2个窗口 一个text 这个绝对好用 已测试！ 有不会的再 问我吧！