Question

大整数计数器 1.实现大整数（200位以内的整数）的加、减、乘、除运算.2.设计要求 设计程序实

Answer 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