VB6.0 212年考题(编程题) 加答案 注意(不可能出现2013年的考题因为还没开考所有标榜2013者都是假的).docVIP

5630101： 答：设置Text1 的属性MultiLine为true和ScrollBars command1的属性Enabled 为False Private Sub Op1_Click() Text1.FontBold = True End Sub Private Sub Op2_Click() Text1.FontBold = False End Sub Private Sub Cd1_Click() P1.Cls P1.Line (0, 0)-(1800, 1200) End Sub Private Sub Cd2_Click() P1.Cls P1.Circle (900, 600), 500 End Sub Private Sub Command1_Click() Dim n As Integer Dim a As Integer, b As Integer, c As Integer n = Text1.Text a = n Mod 10 b = n \ 10 Mod 10 c = n \ 100 If a ^ 3 + b ^ 3 + c ^ 3 = n Then Label1.Caption = 是水仙花数 Else Label1.Caption = 不是水仙花数 End If End Sub Dim A(1 To 10) Private Sub Command1_Click() Randomize Dim i As Integer For i = 1 To 10 A(i) = Int(10 + Rnd * (99 - 10 + 1)) Text1.Text = Text1.Text A(i) Next i End Sub Private Sub Command2_Click() Min = A(1) Max = A(1) For i = 2 To 10 If A(i) Min Then Min = A(i) ElseIf A(i) Max Then Max = A(i) End If Next i Text2.Text = Max Text3.Text = Min End Sub 5630102： 答：设置 image1 的属性BorderStyle为1和Stretch为true 在image1 的picture属性找到图片 Private Sub Command1_Click() Text2.Text = Text1.SelText Text1.Text = Text1.SetFocus End Sub Private Sub Command1_Click() 不得删改本行注释 Dim a As Single a = Text1.Text If a = 80 And a = 100 Then Text2.Text = 优良 If a = 60 And a 80 Then Text2.Text = 合格 If a 0 And a 60 Then Text2.Text = 不合格 End Sub 5630103： Timer1的Enabled 属性为 False和timer1的Interval属性为1000 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub Private Sub Command1_Click() L1.AddItem Text1.Text L2.AddItem Val(Text1.Text) ^ 2 T1.Text = T1.SetFocus End Sub Private Sub Command1_Click() Dim s As String, i As Integer, n As Integer s = Text1.Text For i = 1 To Len(s) If Mid(s, i, 1) = 0 And Mid(s, i, 1) = 9 Then n = n + 1 End If Next i Text2.Text = n End Sub Private Sub Command1_Click() Dim i As Integer For i = 100 To 200 If isprime(i) = False Then Text1.Text