计算机二级Access习题.ppt

1、在名为Form的窗体上添加三个文本框和一个命令按钮,其名称分别是“Text1”、“Text2”、“Text3”mand1”,然后编写了如下两个事件过程:mand_Click()Text3=Text2+Text1EndSubPrivateSubForm1_load()Text1=“”Text2=“”Text3=“”EndSub打开窗体Form1后,在第一个文本框和第二个文本框内分别输入5和7,mand1,则文本框3中显示的内容为————ess习题2、执行下列程序,消息框中的输出结果是(28)mand1_Click()Dima(10),P(3)AsIntegerk=5fori=1To10a(i)=iNextiFori=1To3P(i)=a(i*i)NextiFori=1to3k=k+P(i)*ess习题3、有一个VBA计算程序功能如下,该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1,Text2,Text3,Text4,3个按钮分别为:mand1)、mand2)mand3)。窗体打开运行后,单击清除按钮,则清除所有文本框中显示的内容;单击计算按钮,则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在名为Text4的文本框中,单击退出按钮则退出。将程序补充完整。mand1_click()Me!Text1=“”Me!Text1=“”Me!Text1=“”Me!Text1=“”mand2_click()IfMe!Text1=“”orMe!Text2=“”orMe!Text3=“”ThenMsgbox“成绩输入不全”ElseMe!Text4=(_Val(Me!Text1)+Val(Me!Text2)+Val(Me!Text3))/mand3_Click()、在窗体中添加一个命令按钮(mand1)和一个文本框(名为Text1),然后编写如下事件过程:mand1_Click(*)DimxAsInteger,yAsInteger,zAsIntegerx=5:y=7:z=0Me!Text1=“”Callpl(x,y,z)Me!Text1=zEndSubSubpl(aAsInteger,bAsInteger,cAsInteger)c=a+bEndSub打开窗体运行后,单击命令按钮,ess习题5、阅读以下程序:Fori=1to3forj=ito1fork=jto3a=a+1nextknextjNexti执行上面的循环后,ess习题6、窗体中有两个命令按钮:“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。以下事件过程的功能是:单击测试按钮时,窗体上弹出一个消息框,如果单击消息框的确定按钮,隐藏窗体上的显示命令按钮;单击取消按钮关闭窗体。请按照功能要求,将程序补充完整。PrivateSubcmdTest_Click()Answer=msgbox_____(“隐藏按钮”,vbOKCancel)Ifanswer==、在窗体上添加一个命令按钮(mand1),然后编写如下事件过程:mand_Click()Dimb,kFork=1to6b=23+kNextkMsgBoxb+kEndSub打开窗体后,单击命令按钮,消息框的输出结果是———36———ess习题8、mand1的命令按钮,然后编写如下事件过程:mand1_Click()x=0n=InputBox(“”)Fori=1tonforj=1toix=x+1NextjNextIPrintxEndSub程序运行后,单击命令按钮,如果输入3,ess习题9、mand1的命令按钮,然后编写如下事件过程:mand1_Click()s=“ABBACDDCBA”Fori=6to2Step-2x=Mid(s,i,i)y=Left(s,i)z=Right(s,i)z=x&y&zNextIMsgBoxzEndSub窗体打开运行后,单击命令按钮,ess习题10、在窗体上一个名为Text1的文本框控件,同时窗体加载时设置其时间间隔为1秒,计时器触发事件过程实现在Text1中动态显示当前日期和时间。将程序补充完整。PrivateSubForm_Load()=100EndSubPrivateSub____Me!Text1=Now()ess习题