位置:首页 > 题库频道 > 其它分类 > 计算机其它 > 二级二级VB2009年9月全国计算机等级考试二级笔试试卷(Visual Basic语言程序设计)

下列关于通用对话框CommonDialog1的叙述中,错误的是

发布时间:2024-07-09

A.只要在“打开”对话框中选择了文件,并单击“打开”按钮,就可以将选中的文件打开

B.使用CommonDialog1.ShowColor方法,可以显示“颜色”对话框

C.CancelError属性用于控制用户单击“取消”按钮关闭对话框时,是否显示出错误警告

D.在显示“字体”对话框前,必须先设置CommonDialog1的flags属性,否则会出错

试卷相关题目

  • 1设a、b都是自然数,为求a除以b的余数,某人编写了以下函数:Function fun(a As Integer,b As Integer)While a>ba=a-bWendfun=aEnd Function在调试时发现函数是错误的。为使函数能产生正确的返回值,应做的修改是

    A.把a=a-b改为a=b-a

    B.把a=a-b改为a=ab

    C.把While a>b改为While a

    D.把While a>b改为While a>=b

    开始考试点击查看答案
  • 2标准模块中有如下程序代码:Public x As Integer,y As IntegerSub var_pub()x=10:y=20End Sub在窗体上有1个命令按钮,并有如下事件过程:Private Sub Command1_Click()Dim x As IntegerCall var_pubx=x+100y=y+100Print x;yEnd Sub运行程序后单击命令按钮,窗体上显示的是

    A.100 100

    B.100 120

    C.110 100

    D.110 120

    开始考试点击查看答案
  • 3为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:Private Sub Command1_Click()Dim a%,s%,k%s=1a=2For k=2 To 10a=a*2s=s+aNext kText1.Text=sEnd Sub执行此事件过程后发现结果是错误的,为能够得到正确结果,应做的修改是

    A.把s=1改为s=0

    B.把For k=2 To 10改为For k=1 To 10

    C.交换语句s=s+a和a=a*2的顺序

    D.同时进行B)、C)两种修改

    开始考试点击查看答案
  • 4窗体上有1个名称为Text1的文本框;1个名为Timer1的计时器控件,其Interval属性值为5000,Enable属性值是True。Timer1的事件过程如下:Private Sub Timer1_Timer()Static flag As IntegerIf flag=0 Then flag=1flag=-flagIf flag=1 ThenText1.ForeColor=&HFF&  ‘&HFF&为红色ElseText1.ForeColor=&HC000& ‘&HC000&为绿色End IfEnd Sub以下叙述正确的是

    A.每次执行些事件过程时,flag的初始值为0

    B.flag的值只可能取0或1

    C.程序执行后,文本框的文字每5秒改变一次颜色

    D.程序有逻辑错误,Else分支总也不能被执行

    开始考试点击查看答案
  • 5设有以下函数过程Function fun(a As Integer,b As Integer)Dim c As IntegerIf a<b Thenc=a:a=b:b=cEnd Ifc=0Doc=c+aLoop Until c Mod b=0fun=cEnd function若调用函数fun时的实际参数都是自然数,则函数返回的是

    A.a、b的最大公约数

    B.a、b的最小公倍数

    C.a除以b的余数

    D.a除以b的商的整数部分

    开始考试点击查看答案
  • 6在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为

    A.退出(X&)

    B.退出(&X)

    C.退出(X#)

    D.退出(#X)

    开始考试点击查看答案
  • 7在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:Dim ss As StringPrivate Sub Text1_KeyPress(KeyAscii As integer)If chr(KeyAscii)<>””Then ss=ss+chr(KeyAscii)End SubPrivate Sub Command1_Click()Dim m As String,i As IntegerFor i=Len(ss) To 1 step -1m=m+Mid(ss,i,1)NextText1.Text=Ucase(m)End Sub程序运行后,在文本框中输入“Number100”,并单击命令按钮,则文本框中显示的是

    A.NUMBER 100

    B.REBMUN

    C.REBMUN 100

    D.001 REBMUN

    开始考试点击查看答案
  • 8下列有关文件的叙述中,正确的是

    A.以Output方式打开一个不存在的文件时,系统将显示出错信息

    B.以Append方式打开的文件,既可以进行读操作,也可以进行写操作

    C.在随机文件中,每个记录的长度是固定的

    D.无论是顺序文件还是随机文件,其打开的语句和打开方式都是完全相同的

    开始考试点击查看答案
返回顶部