填空题

在一个窗体上有一个命令按钮，CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。
Private Sub Form_Load()
Form1.Caption=“字体变化示范”
CmdMax.Caption=“字体变大”
End Sub
Private Sub CmdMax_Click()
【8】
Form1.Print“字体由小变大”
End Sub

【参考答案】

Form1.FontSize=Form1.FontSize+2

<上一题目录下一题>

热门试题

填空题

下面运行程序后，单击命令按钮，输出的结果是【9】。 Private Sub Command1_Click() Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next For i=3 To 6 b(i)=i Next s1.= Fun(a) s2 =Fun(b) Print s1 = ; s1; s2 = ; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End Function

填空题

下面程序用来计算： Private Sub Command1_Click( ) A = Val(Text1. Text) B = Val (Text2. Text) Select Case A Case 【11】 N=A+B Case Is = 5 N = B A Case Is＜5 N=0 End Select Text3. Text = N End Sub

相关试题