vb 答案.docVIP

01题考生注意：请去掉程序中的注释符，把程序中的编号①～⑤改为正确的内容Private Sub Command1_Click()??? ①??? Timer1.Enabled = TrueEnd Sub Private Sub Command2_Click()??? ②??? Timer1.Enabled = FalseEnd Sub Private Sub Form_Load()?? Timer1.Interval = ③?? Timer1.Interval = 200End Sub Private Sub Timer1_Timer()要求考生编写代码 ? If Text1.Top ④ Then?? If Text1.Top -Text1.Height Then???? Text1.Top = Text1.Top - 200?? Else? ? Text1.Top= ⑤? Text1.Top = Height? End IfEnd Sub 02题考生注意：请去掉程序中的注释符，把程序中的编号①②③④⑤改为正确的内容Private Sub Command1_Click() If ① Then? If Op1.Value = True Then??? Label1.FontName = 隶书? Else??? Label1.FontName = 黑体? End If ? If Ch1.Value Then?? Label1.FontStrikethru = ②??? Label1.FontStrikethru = True? Else??? Label1.FontStrikethru = ③???? Label1.FontStrikethru = False? End If ? If Ch2 Then?? ④???? Label1.FontUnderline = True? Else?? ⑤???? Label1.FontUnderline = False? End IfEnd Sub 03题Private Sub HScroll1_Change()Label1.FontSize = HScroll1.Value1-4是在属性窗口上设计的End Sub 04题Private Sub 求和_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub Private Sub 求积_Click()Text3.Text = Text1.Text * Text2.TextEnd Subvb学习交流，请加? QQ 1099982811 05题Private Sub mDspDate_Click()Caption = DateEnd Sub Private Sub mDspTime_Click()Caption = TimeEnd Sub Private Sub mEnd_Click()EndEnd Sub ? 06题考生注意：请去掉程序中的注释符，把程序中的编号①～⑤改为正确的内容Private Sub Command1_Click()?? ①Timer1.Enabled = True End Sub Private Sub Command2_Click() If ② Then??? If Timer1.Enabled = True Then??? Timer1.Enabled = False??? Command2.Caption = 继续? Else??? Timer1.Enabled = True??? Command2.Caption = 暂停? End IfEnd Sub Private Sub Timer1_Timer()? Static n As Integer? n = ③?? n = n + 1? If n = Len(Caption) Then? ??? Label1.Caption =? ④?????? Label1.Caption = Right(Caption, n)? Else????? n = 0? ⑤? End IfEnd Sub 07题Private Sub mFalse_Click()mEnd.Enabled = FalseEnd Sub Private Sub mTrue_Click()mEnd.Enabled = TrueEnd Subvb学习交流，请加? QQ 1099982811 08题Dim X(1 To 10) As Integer