做两个VB程序 简单题目

Question

用VB编程序设计一个简易的计算器。
实验要求：
1. 设计合适的运行界面并编写相应的事件代码。要求窗体大小合适、布局整齐美观。
2. 在窗体中只包含一个标签和17个命令按钮。并将窗体设置为不可改变大小（Borderstyle属性）。
3. 要求用窗体中唯一的一个标签显示运算数据及运算结果。初始状态显示0（或显示空白）。
4. 要求用命令按钮输入运算数据。窗体中包含0-9、+、-、*、/、=、C、小数点等17个命令按钮。
5. 当单击数字和小数点按钮时，能在标签上显示多位的运算数据。
6. 当单击+、-、*、/按钮时，将第一个运算数取出，并清除标签显示0（或显示空白）。
7. 当单击“=”按钮时，将第二个运算数取出，并计算出运算结果之后显示到标签上。
8. 当单击“C”按钮时，清除两个运算数及标签并显示0（或显示空白）。
9. 最后提交完成的窗体文件（.frm文件 ）。
（提示：可以使用全局变量或模块变量在事件过程之间传递数据。）
建议：从简单到复杂，先实现加的功能，正确运行之后再拓展到减、乘、除的功能。

用VB编程序实现十进制与二进制之间的相互转化。
实验要求：
1. 设计合适的运行界面并编写相应的事件代码。要求窗体大小合适、布局整齐美观。
2. 在窗体中包含4个文本框及对应的说明性标签和3个命令按钮。并将窗体设置为不可改变大小（Borderstyle属性）。
3. 要求4个文本框分别对应于十进制整数、十进制小数、二进制整数、二进制小数。
4. 要求3个命令按钮的功能分别是十进制转二进制、二进制转十进制、清空。
5. 当单击“十进制转二进制”按钮时，将十进制整数、十进制小数分别转化为二进制整数、二进制小数。
6. 当单击“二进制转十进制”按钮时，将二进制整数、二进制小数分别转化为十进制整数、十进制小数。
7. 当单击“清空”按钮时，清空所有文本框。
8. 最后提交完成的窗体文件（.frm文件）。

Answer 1

　　1.用VB编程序设计一个简易的计算器

　　代码：

Dim num_1, num2, flag
Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0 To 9
      Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption)
    Case 10
      Label1.Caption = Label1.Caption + "."
    Case 11 To 14
      num_1 = Val(Label1.Caption)
      Label1.Caption = ""
      flag = Index
    Case 15
      num_2 = Val(Label1.Caption)
      Label1.Caption = ""
      If Command1(flag).Caption = "+" Then
        Label1.Caption = num_1 + num_2
      ElseIf Command1(flag).Caption = "-" Then
        Label1.Caption = num_1 - num_2
      ElseIf Command1(flag).Caption = "*" Then
        Label1.Caption = num_1 * num_2
      Else
        Label1.Caption = num_1 / num_2
      End If
    Case 16
      num_1 = 0
      num_2 = 0
      Label1.Caption = ""
  End Select
End Sub

Private Sub Form_Load()
  Me.AutoRedraw = True
  For i = 0 To 9
    Command1(i).Caption = i
  Next i
End Sub

　　窗体界面设置：

　　在窗体上建立控件数组Command1(0),Command1(1),Command1(2),……,Command1(16),其Captint属性分别设置为0,1,2,3,4,5,6,7,8,9,.,+,-,*,/,=,C

　　2.用VB编程序实现十进制与二进制之间的相互转化

　　代码：

Private Sub Command1_Click()
  Text3.Text = ""
  Text4.Text = "0."
  n = Val(Text1.Text)
  Do While n > 0
    Text3.Text = CStr(n Mod 2) + Text3.Text
    n = n \ 2
  Loop
  n = Val(Text2.Text)
  Do While n > 0
    Text4.Text = Text4.Text + CStr(Fix(2 * n))
    n = 2 * n - Fix(2 * n)
  Loop
End Sub

Private Sub Command2_Click()
  Dim s1, s2
  Text1.Text = ""
  Text2.Text = ""
  For i = 1 To Len(Text3.Text)
    s1 = s1 + Val(Mid(Text3.Text, i, 1)) * 2 ^ (Len(Text3.Text) - i)
  Next i
  Text1.Text = s1
  For i = 3 To Len(Text4.Text)
    s2 = s2 + Val(Mid(Text4.Text, i, 1)) * 2 ^ (-(i - 2))
  Next i
  Text2.Text = "0" + CStr(s2)
End Sub

Private Sub Command3_Click()
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Text4.Text = ""
End Sub

Private Sub Form_Load()
  Me.AutoRedraw = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
    KeyAscii = 0
    Beep
  End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then
    KeyAscii = 0
    Beep
  End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
  If (KeyAscii < 48 Or KeyAscii > 49) And KeyAscii <> 8 Then
    KeyAscii = 0
    Beep
  End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
  If (KeyAscii < 48 Or KeyAscii > 49) And KeyAscii <> 8 And KeyAscii <> 46 Then
    KeyAscii = 0
    Beep
  End If
End Sub

　　运行界面：