
帮我做个VB作业。。。。。。
第一个~~单击“显示”按钮,窗体上显示“VBisfun!”,窗体显示字体为红色(设置窗体的forecolor属性),小三号,加粗,宋体字(设置窗体的font属性),单击“...
第一个~~单击“显示”按钮,窗体上显示“VB is fun!”,窗体显示字体为红色(设置窗体的forecolor属性),小三号,加粗,宋体字(设置窗体的font属性),单击“清除”按钮,窗体上的字体被清除,单击“结束”按钮,程序结束。
第二个~ 展开
第二个~ 展开
1个回答
展开全部
1、
Private Sub Command1_Click()
Label1.Caption = " VB is fun!"
Label1.ForeColor = vbRed
Label1.FontSize = 20
Label1.Font = "宋体"
End Sub
Private Sub Command2_Click() '清除
Label1.Caption = ""
End Sub
Private Sub Command3_Click() '结束
End
End Sub
2、
Private Sub Command4_Click() 'CINT转换
Text2.Text = CInt(Text1.Text)
End Sub
Private Sub Command5_Click() 'FIX转换
Text2.Text = Fix(Text1.Text)
End Sub
Private Sub Command6_Click() 'INT转换
Text2.Text = Int(Text1.Text)
End Sub
Private Sub Command3_Click() '结束
End
End Sub
Private Sub Command1_Click()
Label1.Caption = " VB is fun!"
Label1.ForeColor = vbRed
Label1.FontSize = 20
Label1.Font = "宋体"
End Sub
Private Sub Command2_Click() '清除
Label1.Caption = ""
End Sub
Private Sub Command3_Click() '结束
End
End Sub
2、
Private Sub Command4_Click() 'CINT转换
Text2.Text = CInt(Text1.Text)
End Sub
Private Sub Command5_Click() 'FIX转换
Text2.Text = Fix(Text1.Text)
End Sub
Private Sub Command6_Click() 'INT转换
Text2.Text = Int(Text1.Text)
End Sub
Private Sub Command3_Click() '结束
End
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询