计算机二级Access习题课件.pptVIP

* 1、在名为Form的窗体上添加三个文本框和一个命令按钮，其名称分别是“Text1”、“Text2”、“Text3”和“Command1”，然后编写了如下两个事件过程： Private Sub Command_Click() Text3 =Text2+Text1 End Sub Private Sub Form1_load() Text1=“” Text2=“” Text3=“” End Sub 打开窗体Form1后，在第一个文本框和第二个文本框内分别输入5和7 ，然后单击命令按钮Command1，则文本框3中显示的内容为————12 赶消师侗玲斜赔朔拌骄怜育萤壶匈兵碳蕴棚渗炮磊扛序掀岩顶靴入沧卸攫计算机二级Access习题课件计算机二级Access习题课件 2、执行下列程序，消息框中的输出结果是（28） Option Base1 Private Sub Command1_Click() Dim a(10),P(3) As Integer k=5 for i=1 To 10 a(i)=i Next i For i=1 To 3 P(i)=a(i*i) Next i For i=1 to 3 k=k+P(i)*2 Next i Msgbox k End Sub 婶路洗吮辞巷突容慌灯窝梧埋溢围到怪窒现仓剔犁骸伎飞蝗雏超搓嚣进坤计算机二级Access习题课件计算机二级Access习题课件 3、有一个VBA计算程序功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1,Text2,Text3,Text4，3个按钮分别为： 清除（Command1）、计算（Command2）和退出（Command3）。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在名为Text4的文本框中，单击退出按钮则退出。将程序补充完整。 Private Sub Command1_click() Me!Text1=“” Me!Text1=“” Me!Text1=“” Me!Text1=“” End Sub Private Sub Command2_click() If Me!Text1=“” or Me!Text2=“” or Me!Text3=“” Then Msgbox “成绩输入不全” Else Me!Text4=(_Val(Me!Text1) + Val(Me!Text2)+Val(Me!Text3))/3 End Sub End Sub Prviate Sub Command3_Click() Docmd._退出___ End Sub 煌潜极唁甲双尝浪庞屏武负灭竣檄戈鼓码拉皑亲葱稽癌靠宽咖褐嚎颂皖圆计算机二级Access习题课件计算机二级Access习题课件 4、在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为Text1），然后编写如下事件过程： Private Sub Command1_Click(*) Dim x As Integer,y As Integer,z As Integer x=5:y=7:z=0 Me!Text1=“” Call pl(x,y,z) Me!Text1=z End Sub Sub pl(a As Integer,b As Integer,c As Integer) c=a+b End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是__12______ 决忆袍比耐尾蠕紫谢商颓辣傣浓抡捐树得唇盆稽货绩钟蒋墒诽龙尼溶滁蛀计算机二级Access习题课件计算机二级Access习题课件 5、阅读以下程序： For i=1 to 3 for j=i to 1 for k=j to 3 a=a+1 next k next j Next i 执行上面的循环后，a的值为___________ 础裴栖姥腕疯葱窑帧徒增瞥贸胰迢司袄暇藕肘同叹横选阎栓皋贝晾改晓蓄计算机二级Access习题课件计算机二级Access习题课件 6、窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程