关于access vba的程序段 不懂 请高手指教!!!!!!!!!

- shuawang LV.连长
- 2012/11/6 22:09:19
有什么资料之类的吗!!!!!!!!!!!!

- ziluomohen
- 2012/11/7 2:13:10
有一个VBA计算程序,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后,单击清除按钮,则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩,并将结果存放在Text4文本框中,单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click()
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub Command2_Click()
If Me!Text1=""Or Me!Text2=""Or Me!Text3=""Then
MsgBox "成绩输入不全"
Else
Me!Text4=(__【12】__+Val(Me!Text2)+Val(Me!Text3))/3
【13】__
End Sub
Private Sub Command3_Click()
Docmd.__【14】__
End Sub
(11)下面程序的输出结果是__【15】__。
Private Sub Form_Click()
i=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
Print i
End Sub
类似这些题都不懂!!!!!!!!!!!!!!!!!!!
Private Sub Command1_Click()
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub Command2_Click()
If Me!Text1=""Or Me!Text2=""Or Me!Text3=""Then
MsgBox "成绩输入不全"
Else
Me!Text4=(__【12】__+Val(Me!Text2)+Val(Me!Text3))/3
【13】__
End Sub
Private Sub Command3_Click()
Docmd.__【14】__
End Sub
(11)下面程序的输出结果是__【15】__。
Private Sub Form_Click()
i=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
Print i
End Sub
类似这些题都不懂!!!!!!!!!!!!!!!!!!!

- 天马行空
- 2012/11/7 16:51:22
12: Val(Me!Text1) 。。。
2005年4月全国计算机等级考试笔试试卷 二级公共基础知识和Access数据库设计
多看书,多做题。
2005年4月全国计算机等级考试笔试试卷 二级公共基础知识和Access数据库设计
多看书,多做题。

- 恶魔之拥
- 2012/11/8 11:19:20
没学过,有什么好的自学书推荐吗!!!!!!!!!!!!!!!!!