VB06
1、打开文件“考生文件夹\613\工程1.vbp”，完善Command1_Click事件代码并保存。 实现功能：在Text1中输入一个数，单击“判断”按钮后，判断这个数是奇数还是偶数，并在Label1中显示“奇数”或“偶数”出来。
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
'从Text1中读入这个数,并保存在变量a中
a = Val(①)
b = a Mod ②
If b = 0 Then
Label1.Caption = "偶数"
Else
Label1.Caption = "奇数"
③
End Sub
①text1.text②2 ③end if
2、打开文件“考生文件夹\9\工程1.vbp”，完善Command1_Click事件代码并保存。 实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。 Private Sub Command1_Click()
Dim s(9) As Single
For i = 0 To 9
① = Val(InputBox("请输入一个数"))
Next i
For i = 9 To 0 Step ②
Print ③
Next i
End Sub
①s(i)②-1 ③s(i)
www.99jianzhu.com/包含内容：建筑图纸、PDF/word/ppt 流程，表格，案例，最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。