VB6.0 2012年考题(编程题) 加答案 注意(不可能出现2013年的考题因为还没开考所有标榜2013者都是假的)79.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 Co