1- رەسىم 

Forn1  رەسىمى

Forn2 رەسىمى

ئالدىن تەييارلايدىغان ماتېرىياللار
Forn1  رەسىمى
Textbox دىن  3 تال
Command  دىن 8 تال
Check  دىن  1 تال
 Label دىن 1تال
--------------------------
Forn2 رەسىمى
Command دىن 2 تال
Frame دىن 1تال
 Label دىن 1تال

------------------تەييارلاپ قۇيۇلغان كود-------------------------------

Form1 غا بۇنى چاپلاڭ

Private Sub Command1_Click()
Form1.Caption = "欢迎使用智能计算器"                        '载入默认正常显示
If Check1.Value = "0" Then                                  '1类分歧
ElseIf Text1.Text = "" Or Text2.Text = "" Then              '2类分歧
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then             '2类分歧
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else                                                        '2类分歧
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Text3.Text = c
Text1.Text = ""
Text2.Text = ""
End If

If Check1.Value = "1" Then                                   '1类分歧
ElseIf Text1.Text = "" Or Text2.Text = "" Then               '2类分歧
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then              '2类分歧
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else                                                         '2类分歧
Dim d, e, f As Double
d = Val(Text1.Text)
e = Val(Text2.Text)
f = d + e
Text3.Text = f
End If
End Sub

Private Sub Command2_Click()
Form1.Caption = "欢迎使用智能计算器"
If Check1.Value = "1" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else
Dim d, e, f As Double
d = Val(Text1.Text)
e = Val(Text2.Text)
f = d - e
Text3.Text = f
End If

If Check1.Value = "0" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = c
Text1.Text = ""
Text2.Text = ""
End If
End Sub

Private Sub Command3_Click()
Form1.Caption = "欢迎使用智能计算器"
If Check1.Value = "1" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else
Dim d, e, f As Double
d = Val(Text1.Text)
e = Val(Text2.Text)
f = d * e
Text3.Text = f
End If
If Check1.Value = "0" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = c
Text1.Text = ""
Text2.Text = ""
End If

End Sub

Private Sub Command4_Click()
Form1.Caption = "欢迎使用智能计算器"
If Check1.Value = "0" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Val(Text2.Text) = "0" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "分数的分子不能为零"
Else
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a / b
Text3.Text = c
Text1.Text = ""
Text2.Text = ""
End If
If Check1.Value = "1" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Val(Text2.Text) = "0" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "分数的分子不能为零"
Else
Dim d, e, f As Double
d = Val(Text1.Text)
e = Val(Text2.Text)
f = d / e
Text3.Text = f
End If

End Sub

Private Sub Command5_Click()
Form1.Caption = "欢迎使用智能计算器"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Private Sub Command6_Click()
Form1.Caption = "欢迎使用智能计算器"
Form1.Hide
Form3.Show

End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()
Form1.Caption = "欢迎使用智能计算器"
If Text3.Text <> "" Then
Text1.Text = Text3.Text
Text2.Text = ""
Text3.Text = ""
Else
Form1.Caption = "xataliq kuruldi"
Text3.Text = "没有结果无法继续"
End If
End Sub

Private Sub Text2_Change()

End Sub

Private Sub 乘_Click()
Form1.Caption = "欢迎使用智能计算器"
If Check1.Value = "1" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else
Dim d, e, f As Double
d = Val(Text1.Text)
e = Val(Text2.Text)
f = d * e
Text3.Text = f
End If
If Check1.Value = "0" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = c
Text1.Text = ""
Text2.Text = ""
End If

End Sub

Private Sub 除_Click()
Form1.Caption = "欢迎使用智能计算器"
If Check1.Value = "0" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Val(Text2.Text) = "0" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "分数的分子不能为零"
Else
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a / b
Text3.Text = c
Text1.Text = ""
Text2.Text = ""
End If
If Check1.Value = "1" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "错误"
Text3.Text = "运算数值不能为空"
ElseIf Val(Text2.Text) = "0" Then
Form1.Caption = "错误"
Text3.Text = "分数的分子不能为零"
Else
Dim d, e, f As Double
d = Val(Text1.Text)
e = Val(Text2.Text)
f = d / e
Text3.Text = f
End If

End Sub

Private Sub munasiwetlik_Click()
Form1.Caption = "欢迎使用智能计算器"
Form1.Hide
Form3.Show
End Sub

Private Sub 继续_Click()
Form1.Caption = "欢迎使用智能计算器"
If Text3.Text <> "" Then
Text1.Text = Text3.Text
Text2.Text = ""
Text3.Text = ""
Else
Form1.Caption = "xataliq"
Text3.Text = "没有结果无法继续"
End If
End Sub

Private Sub 加_Click()
Form1.Caption = "欢迎使用智能计算器"
If Check1.Value = "0" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "错误"
Text3.Text = "运算数值不能为空"
Else
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Text3.Text = c
Text1.Text = ""
Text2.Text = ""
End If
If Check1.Value = "1" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
Else
Dim d, e, f As Double
d = Val(Text1.Text)
e = Val(Text2.Text)
f = d + e
Text3.Text = f
End If
End Sub

Private Sub 减_Click()
Form1.Caption = "欢迎使用智能计算器"
If Check1.Value = "1" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "xataliq kuruldi"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "错误"
Text3.Text = "运算数值不能为空"
Else
Dim d, e, f As Double
d = Val(Text1.Text)
e = Val(Text2.Text)
f = d - e
Text3.Text = f
End If
If Check1.Value = "0" Then
ElseIf Text1.Text = "" Or Text2.Text = "" Then
Form1.Caption = "错误"
Text3.Text = "运算数值不能为空"
ElseIf Text1.Text = "" And Text2.Text = "" Then
Form1.Caption = "错误"
Text3.Text = "运算数值不能为空"
Else
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = c
Text1.Text = ""
Text2.Text = ""
End If
End Sub

Private Sub 清空_Click()
Form1.Caption = "欢迎使用智能计算器"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

----------------------------------------------

form2 غا بۇنى چاپلاڭ

Private Sub Command1_Click()
Form3.Hide
Form1.Show
Form1.Text3.Text = ""
End Sub

Private Sub Command2_Click()
End

End Sub

-----------------------------------------

كۆچۈرۈپ تارقاتماقچى بولسىڭىز مەنبەنى ئەسكەرتىڭ
مەنبە :  ئەقىللىق بلوگى
ئادرېسى :

چۈشەنمىگەن يەربولسا ئىنكاس قالدۇرۇڭ

ئەسلى كودى