我设计了一个vb程序，现在遇到了两个问题不能解决，希望各位高手可以帮忙解决。

我想请教大家一个用VB程序做一个动态模拟问题，请高手们指点迷津~

太难了

a=inputbox("输入第一门课成绩")
b=inputbox("输入第二门课成绩")
c=inputbox("输入第三门课成绩")
if (a+b+c)/3>95 or (a=100 and b=100 and c>80 or a=100 and c=100 and b>80 or b=100 and c=100 and a>80) then print "一等奖"
if (a+b+c)/3>90 or (a=100 and b>75 and c>75 or b=100 and a>75 and c>75 or c=100 and a>75 and b>75) then print "二等奖"
if a>=70 and b>=70 and c>=70 then print "三等奖"

需要定义一个变量ComputYN，用于判断当a、b、c、d 改变时是否需要计算。
这里又定义了两个文本框：TextX、TextY，用于存放你计算出来的x、y，也可根据自己的需要做其它处理。

程序启动时进入密码校验程序，这里的密码为“123”，可根据需要设置

Private ComputYN As Boolean
Private Sub Form_Load()
ComputYN = False
Command4.Caption = "Command4"

Dim Mima As String, mima1 As String
Dim Nci As Integer

Mima = "123"
Nci = 0
While Nci < 3
mima1 = InputBox("请输入密码（第" & Nci + 1 & "次）：", "输入密码", "")
mima1 = Trim(mima1)
If Mima = mima1 Then GoTo 10
Nci = Nci + 1
If Nci = 3 And Mima <> mima1 Then
'Form1.Hide
End
End If
Wend
10 '
End Sub

Private Sub Command4_Click()
If ComputYN = False Then
Comput1
ComputYN = True
Command4.Caption = "计算"
Else
ComputYN = False
Command4.Caption = "Command4"
End If
End Sub

Private Sub Comput1()
'测绘重心
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim e As Single

Dim G As Single
Dim X As Single
Dim Y As Single

a = Val(Text1.Text) + 0.0000000001
b = Val(Text2.Text) + 0.0000000001
c = Val(Text3.Text) + 0.0000000001
d = Val(Text4.Text) + 0.0000000001
e = Val(Text5.Text) + 0.0000000001
G = (a + b + c + d) / 9.8 - e
X = (4000 * a + 4000 * b + 10400 * c + 10400 * d) / (a + b + c + d)
Y = (3600 * a + 6000 * b + 3600 * c + 6000 * d) / (a + b + c + d)

TextX.Text = X
TextY.Text = Y
End Sub

Private Sub Text1_Change()
If ComputYN = True Then Comput1
End Sub

Private Sub Text2_Change()
If ComputYN = True Then Comput1
End Sub
Private Sub Text3_Change()
If ComputYN = True Then Comput1
End Sub
Private Sub Text4_Change()
If ComputYN = True Then Comput1
End Sub
Private Sub Text5_Change()
If ComputYN = True Then Comput1
End Sub

1.
if 密码错误次数=3 then end

2.
你的这个想法不错，但是编程比较复杂，要设置一个全局变量作为开关， 计算过程作为一个单独的子程序，当文本框的change事件发生，就调用一次。

---

永新县18743399979： 设计vb程序时 系统报错 加载DLL错误? - ？
策胥甘风： 有两种可能. 我认为最大的可能是运行时错误.因为你在调用Recordset.Update之前没有往Recordset里加入数据,结果具体实现将数据写入数据库的DLL找不到数据,造成访问它无权访问的内存,被操作系统拦截了. 第二种可能是确实损坏了,你重新安装VB6.0能解决. 注意你的VB6CHS.DLL这个文件的版本.因为老版本的DLL没有处理内存访问异常,而新版本则有.如果你的是新版本,则肯定为第一种.

永新县18743399979： 【VB编程求助】【菜鸟编程】我变了个小程序,出现一线错误,求解决! - ？
策胥甘风： 你把变量的定义,全都放到IF语句外边去,别在流程语句内定义

永新县18743399979： 我在用VB做一个小功能,但是遇到了麻烦,我做的是考试系统. - ？
策胥甘风： 不是很理解您的意思,你的每一题的按钮也是按钮控件做的吗 但是不管怎样 你应该有一个指向每一题的索引,比如说CurIndex,那么不管你是按下面的数字还是上面的上一题和下一题,CurIndex=CurIndex+1 或减1,在每个数字按钮用command...

永新县18743399979： 我用VB编了个计算程序,遇到问题了,求解？
策胥甘风： Private Sub Command1_Click() rem Text1 = InputBox Text2.Text = Text1.Text * Text1.Text * 3.14 End Sub呵呵,希望帮助到你.

永新县18743399979： 我做VB打开了一个程序.那个程序界面有2个可以输入的,我想用VB自动输入,怎么办?？
策胥甘风： 那就在Form_Load 里对文本框(假设输入框为文本框)赋初值 代码如下: text1=＂A＂ text2=＂B＂ 加上这个语句,当运行的时候就会自动输入了.

永新县18743399979： VB 程序暂停与继续运行 - ？
策胥甘风： 暂停键下加上这两个 Timer1(0).Enabled = False Timer1(1).Enabled = False 继续键再把时间控键=真就可以了

永新县18743399979： vb 设计了选择题程序 在用户做完之后 有两个列表框 一个显示题号 一个显示用户的正误情况 然后点击某一个 - ？
策胥甘风： 你在form_load中将rs给销毁了(set rs = nothing)所以在form_load过程后,全局变量rs其实已经不存在了,所以...

永新县18743399979： 我设计完的vb小程序运行不了 - ？
策胥甘风： 你有生成.EXE文件嘛?光保存是不行的.在“文件”菜单里有一个生成***.EXE的选一下.

永新县18743399979： 我做的一个vb软件保存打不开了,保存成了Form1.vb和Form1.Designer.vb两个文件!请高手帮忙! - ？
策胥甘风： 你是直接双击Form1.vb的吧?这样没用的,只能打开Form1.vb这一个文件,里面只有代码,窗体设计在Form1.Designer.vb中,应该用下面方法: 1、运行VS2010 2、选择“新建项目”,选择“Visual Basic”模板中的“Windows窗体应用程序” 3、在“解决方案资源管理器”中,右键点击“Form1.vb”,选“删除”,点确定 4、在“解决方案资源管理器”中,右键点击“Windows Application1”,选“添加”-->“现有项”,将“Form1.vb”添加进来 5、重复第4步,将“Form1.Designer.vb”添加进来 OK了,也许还不能运行,但至少代码和窗体控件找回来了.

永新县18743399979： 两个VB设计问题!!~~~求助!!~~~~ - ？
策胥甘风： 窗体上的控件就自己画上去吧.事件代码如下:1:Private Sub Text1_Change()dim i as longi=Text1.SelStartText1.Text=UCase$(Text1.Text)Text1.SelStart=iEnd SubPrivate Sub Command1_...