以下叙述中错误的是
A.用Shell函数可以调用能够在Windows下运行的应用程序
B.用Shell函数可以调用可执行文件,也可以调用Visual Basic的内部函数
C.调用Shell函数的格式应为:<变量名>=Shell (……)
D.用Shell函数不能执行DOS命令
试卷相关题目
- 1设有语句Open "c:Test.Dat" For Output As #1则以下错误的叙述是
A.该语句打开C盘根目录下一个已存在的文件Test.Dat
B.该语句在C盘根目录下建立一个名为Test.Dat的文件
C.该语句建立的文件的文件号为1
D.执行该语句后,就可以通过Print #语句向文件Test.Dat中写入信息
开始考试点击查看答案 - 2假定有以下函数过程:Function Fun(S As String) As StringDim s1 As StringFor i = 1 To Len(S)s1 = UCase(Mid(S, i, 1)) + s1Next iFun = s1End Function在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim Str1 As String, Str2 As StringStr1 = InputBox("请输入一个字符串")Str2 = Fun(Str1)Print Str2End Sub程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg",则单击"确定"按钮后在窗体上的输出结果为
A.abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
开始考试点击查看答案 - 3在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Array("北京", "上海", "天津", "重庆")Print city(1)End Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A.空白
B.错误提示
C.北京
D.上海
开始考试点击查看答案 - 4在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是
A.Tag
B.Index
C.ListIndex
D.Name
开始考试点击查看答案 - 5以下关于菜单的叙述中,错误的是
A.在程序运行过程中可以增加或减少菜单项
B.如果把一个菜单项的Enabled属性设置为False,则可删除该菜单项
C.弹出式菜单在菜单编辑器中设计
D.利用控件数组可以实现菜单项的增加或减少
开始考试点击查看答案 - 6以下关于过程及过程参数的描述中,错误的是
A.过程的参数可以是控件名称
B.用数组作为过程的参数时,使用的是"传地址"方式
C.只有函数过程能够将过程中处理的信息传回到调用的程序中
D.窗体可以作为过程的参数
开始考试点击查看答案 - 7在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:Private Sub TxtA_KeyPress(keyascii as integer)……End Sub若焦点位于文本框中,则能够触发KeyPress事件的操作是
A.单击鼠标
B.双击文本框
C.鼠标滑过文本框
D.按下键盘上的某个键
开始考试点击查看答案 - 8目录列表框的Path属性的作用是
A.显示当前驱动器或指定驱动器上的路径
B.显示当前驱动器或指定驱动器上的某目录下的文件名
C.显示根目录下的文件名
D.只显示当前路径下的文件
开始考试点击查看答案 - 9假定有如下事件过程:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是
A.该过程的功能是弹出一个菜单
B.popForm是在菜单编辑器中定义的弹出式菜单的名称
C.参数X、Y指明鼠标的当前位置
D.Button = 2表示按下的是鼠标左键
开始考试点击查看答案 - 10以下能够正确计算n!的程序是
A.Private Sub Command1_Click()n = 5: x = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd Sub
B.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd Sub
C.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i <= nPrint xEnd Sub
D.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i > nPrint xEnd Sub
开始考试点击查看答案
最新试卷
注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2013年注册安
类别:建筑类其它