VB课后答案Word文档格式.docx
- 文档编号:21167935
- 上传时间:2023-01-28
- 格式:DOCX
- 页数:79
- 大小:354.97KB
VB课后答案Word文档格式.docx
《VB课后答案Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB课后答案Word文档格式.docx(79页珍藏版)》请在冰豆网上搜索。
Width=1575
End
End
AttributeVB_Name="
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
PrivateSubCommand1_Click()
PrintSqr(8),8^(1/3)
EndSub
2,VERSION5.00
Height=495
Left=3720
Top=2640
Width=855
Dimi%
Fori=100To110
Printi,i^(1/2)
Next
3,VERSION5.00
AutoRedraw=-1'
True
BeginPropertyFont
Name="
楷体"
Size=21.75
Charset=134
Weight=400
Underline=0'
False
Italic=0'
Strikethrough=0'
EndProperty
ForeColor=&
H000000FF&
PrivateSubForm_Load()
Print:
Print"
郑州大学在前进!
"
4,VERSION5.00
ClientHeight=3780
ClientWidth=6285
ScaleHeight=3780
ScaleWidth=6285
BeginVB.LabelLabel1
蓝天、白云、绿水、青山"
宋体"
H00FF0000&
Height=975
Left=600
Top=1080
Width=4935
第二章
ClientHeight=3090
ClientTop=450
ClientWidth=3615
Size=12
Weight=700
ScaleHeight=3090
ScaleWidth=3615
BeginVB.CommandButtonCommand2
商"
Left=1920
TabIndex=4
Top=1680
Width=975
乘积"
TabIndex=3
BeginVB.TextBoxText2
TabIndex=2
Top=840
Width=1095
BeginVB.TextBoxText1
Left=480
TabIndex=1
BeginVB.LabelLabel3
BorderStyle=1'
FixedSingle
Label3"
Left=2040
TabIndex=6
BeginVB.LabelLabel2
计算结果为:
TabIndex=5
AutoSize=-1'
请输入两个数:
Height=240
Left=960
Top=360
Width=1785
Label3=Val(Text1)*Val(Text2)
PrivateSubCommand2_Click()
Label3=Val(Text1)/Val(Text2)
ClientWidth=5490
ScaleWidth=5490
BeginVB.CommandButtonCommand3
隐藏"
Left=4080
Top=2040
图片2"
Top=1320
图片1"
Top=600
BeginVB.PictureBoxPicture1
Size=9
Height=1935
ScaleHeight=1875
ScaleWidth=2715
Top=480
Width=2775
Picture1.Picture=LoadPicture("
d:
\tu1.jpg"
)
\tu2.jpg"
PrivateSubCommand3_Click()
Picture1.Visible=False
收款机"
ClientHeight=2730
ScaleHeight=2730
总价为"
Top=1920
Width=1695
Left=3000
Top=960
Width=1335
Top=240
Alignment=2'
Center
Left=2760
Width=1455
货物的单价(元):
Left=360
Width=2295
货物的数量(个):
Label3=Text1*Text2
4,
VERSION5.00
ClientHeight=1890
ClientWidth=4365
ScaleHeight=1890
ScaleWidth=4365
清除"
Left=2400
Top=1200
复制"
Left=720
Left=2160
Text2=Text1
Text1="
Text2="
Command1.Visible=False
Command2.Visible=False
EndSub,
PrivateSubText1_Change()
Command1.Visible=True
Command2.Visible=True
5,VERSION5.00
ClientHeight=3300
ClientWidth=4695
ScaleHeight=3300
ScaleWidth=4695
BeginVB.TimerTimer1
Enabled=0'
Interval=500
Left=3120
停止"
移动"
Left=840
BeginVB.ImageImage1
Height=1800
Width=1500
Image1.Picture=LoadPicture("
\tu3.jpg"
Timer1.Enabled=True
Timer1.Enabled=False
PrivateSubTimer1_Timer()
Image1.Left=Int(Rnd*(Form1.ScaleWidth-Image1.Width))
Image1.Top=Int(Rnd*(Form1.ScaleHeight-Image1.Height)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课后 答案