大整数计数器 1.实现大整数（200位以内的整数）的加、减、乘、除运算.2.设计要求 设计程序实
1个回答
Private Sub Command1_Click()
Label4.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Rem option1_Click()
Private Sub option1_Click(Index As Integer)
Height = 8885: Width = 12060
Text1.FontSize = 12
Text2.FontSize = 12
Label4.FontSize = 10
Label1.FontSize = 12
Label2.FontSize = 12
Label3.FontSize = 12
Label1.FontName = "黑体"
Label2.FontName = "黑体"
Label3.FontName = "黑体"
Dim a1, a2
a1 = Val(Text1.Text)
a2 = Val(Text2.Text)
Select Case Index
Case 0
Label4.Caption = a1 + a2
Case 1
Label4.Caption = a1 - a2
Case 2
Label4.Caption = a1 * a2
Case 3
Label4.Caption = a1 / a2
Case 4
Label4.Caption = a1 a2
Case 5
Label4.Caption = a1 ^ a2
Case 6
Label4.Caption = a1 Mod a2
End Select
End Su
相关问题
