VB高手进，帮我编写一段代码？万分感谢···

我自己编写了一小半，后面的写不下去了，那位好心人，帮帮我啊，谢谢，谢谢了···

这是我写的：

Private Sub Combo1_Click()
Text1.FontSize = Combo1.Text
End Sub

Private Sub Combo2_Click()
Text1.FontName = Combo2.Text
End Sub

Private Sub Command7_Click(Index As Integer)
Command3(6) = 1
Text2.Text = Command3(6)
End Sub

Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim c As Integer
For a = 2 To 10
Combo1.AddItem a
Next a
For b = 12 To 100 Step 2
Combo1.AddItem b
Next b
For c = 0 To Screen.FontCount - 1
Combo2.AddItem Screen.Fonts(c)
Next c

End Sub

Private Sub open_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "all file(*.*)|*.*|文本文件（*.txt）|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.Action = 1
If CommonDialog1.FileName = "" Then
MsgBox "No flie selectd", 37, "Checking"
Else
Open CommonDialog1.FileName For Input As #1
Input #1, a$

Text1.Text = a
End If
End Sub

Private Sub Timer1_Timer()

Label5.Caption = Now
Label5.FontSize = 18
End Sub

计算器那部分不会写，还有菜单那里的“打开”和“保存”不会？

1.计算器那里的要求：

让选中的数字相加，减，乘，除，让文本框（text1）显示它们运算的结果？

2.菜单那里要求：

在菜单的文件“打开”单击事件中，可以打开一个*.txt格式的文件，在文本框显示出来。在文本里写好文字后，单击保存，让它保存不*.txt文件的格式。谢谢···

菜单打开代码

private sub open_click()

CommonDialog1.FileName = ""
CommonDialog1.Filter = "文本文件（*.txt）|*.txt"
CommonDialog1.showopen

open （路径和文件名） for input as #1

input #1,（读入的变量名）

text1.text = （读入的变量名）`需要把text1的multiline属性设置为ture

其他我改日补充

我有个vb写好的科学计算器，代码太乱了，如果你要可以发给你，应该对人角帮助

汗把你源码发来xmhacker@126.com

我帮你写。

-。-||

打开保存那菜单直接调用。单击事件就ok

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息