VB程序设计A卷

《VB程序设计A卷》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、课程名称：《程序设计（VB）》开课性质：考查适用班级：考试性质：闭卷班级：学号：姓名：得分：一、选择题（每题2分，共20分）1．创建应用程序的界面时，在窗体上设置了一个文本框，运行程序后，文本框没有出现在窗体上，可能的原因是　　　　。A．该文本框的Value属性被设置为FalseB．该文本框的Enabled属性被设置为FalseC．该文本框的Visible属性被设置为FalseD．该文本框的Default属性被设置为True2．下列不是VisualBasic事件名称的是　　　　。A．ChangeB．ClickC．ScrollD．ChDir3．由系统提供的，可在

2、任何一个VB程序中随时使用的程序段的函数是　　3　　。A．内部函数B．公共函数C．逻辑函数D．关系函数4．SQL缩写所表示的意思是　　　　。A．开放式容器B．结构查询语言C．数据库联接D．数据库编程5．运行下列程序：PrivateSubCommand3_Click()DimpAsInteger,iAsIntegerp=1Fori=1To5p=p+(2*i-1)/(2*i+1)Ifp>=20ThenExitFor'跳出循环前执行不到这一句NextiPrinti,pEndSub单击窗体后，则在立即窗口上输出结果是　　　。A．15B．-0.7C．24D．06．Dat

3、etime是Data类型的变量，以下赋值语句中错误的是　　　　。A．Datetime=#5/8/03#B．Datetime=#Septemberl,2003#C．Datetime=#10:21:00AM#D．Datetime="5/6/03"7．运行下列程序：PrivateSubForm_Click()DimpAsInteger,iAsInteger,nAsIntegerp=2:n=20Fori=1TonStepp'计数循环的初值、终值和步长都不会变p=p+2n=n-3i=i+1Ifp>=10ThenExitForNextiPrintp；nEndSub单击窗体

4、后，则在立即窗口上输出结果是　　　　。A．15B．-0.7C．24D．08．运行下列程序：PrivateSubCommand1_Click()　　DimxAsInteger,nAsInteger　　n=0　　Do　　　　n=n+2　　　　x=x+n　　LoopWhilen<10　　Debug.PrintxEndSub单击Command1命令按钮后，则在立即窗口上输出结果是是　　　　。A．2B．10C．12D．309．运行下列程序：PrivateSubCommand1_Click()　　a=100　　b=24　　a=aModb　　b=ba　　a=b-a　　De

5、bug.PrintaEndSub单击Command1命令按钮后，则在立即窗口上输出结果是　　　　。A．2B．24C．50D．10010．下列程序运行后，信息框显示的内容是　　　。PrivateSubCommand1_Click()　　Dims1AsString　　Dims2AsInteger　　s1="Hello-World,2004"　　s2=Len(s1)+InStr(1,s1,"2")　　MsgBoxs2EndSubA．Hello-WorldB．2003C．16D．29二、填空题（每空3分，共60分）1．VB6.0的赋值语句为变量或属性赋值，为对象引用赋

6、值必须使用　（1）　。2．执行MyResult=12.6Mod5后，变量MyResult将返回结果是　（2）　。3．菜单控件的Checked属性用于将复选标记放到菜单项的左侧，以便表示菜单项的　（3）　。4．若要求从文本框中输入密码时在文本框中只显示“*”号，则应当在此文本框的属性窗口中设置　（4）　属性值为“*”。5．InputBox函数来返回值的类型是　（5）　。6．运行下列程序：PrivateSubForm_Click()　　Sum=0　　Fori=1To100　　　　IfMid(CStr(i),1,1)="1"Then　　　　　　Sum=Sum+1　　

7、　　EndIf　　Nexti　　PrintSumEndSub单击窗体后，则在窗体上显示的结果是　（6）　。7．运行下列程序：PrivateSubCommand1_Click()　　b=1　　DoWhileb<20　　　　b=b*b+1　　　　a=a+b　　Loop　　MsgBoxaEndSub单击Command1命令按钮后，则弹出的消息对话框中显示　（7）　。8．运行下列程序：PrivateSubForm_Click()　　Dims1AsString,s2AsString　　x1="1":x2="2"　　x3="3":x4="4"　　s1=x1+x3　　s2=

8、x2+x4　　Debug.Prints