当故障事件代码出现E199(1)时,指的是()。
A.低水温报警
B.油/水温差高停机
C.发动机过载
D.低油压报警
A.低水温报警
B.油/水温差高停机
C.发动机过载
D.低油压报警
在窗体中添加一个命令按钮Commandl和一个文本框Text1,编写命令按钮Com-mand1 的 Click事件代码; Private Sub Command1_Click() Dim S As String*20 S=TextText End Sub 该程序的功能是当单击按钮Command1时,把变量S中内容写入一个顺序文件 datl. dar中,正确的程序段是 ()
A.Open "datl. dat", For lnput As#1 Write井1,S
B.Open"datl. dat" For Output As#1 Write#1, S
C.Open"dat", For Binary As #1 Write #1, S Close #1
D.Open datl. dat"For Random As #1 Write #1, S Close #1
(1l)假设用户名和口令存储在自由表“口令表”中,当用户输入用户名和口令并单击“登录”按钮时,若用户名输入错误,则提示。“用户名错误”;若用户名输入正确,而口令输入错误,则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下:USE 口令表GO TOPFlag=0DO WHILE.not.EOFIF Alltrim(用户名)= =Alltrim(Thisfrom.Text1.Value)IF Alltrim(口令)= =Alltrim(Thisfrom.Text2.Value)WAIT"欢迎使用" WINDOW TIMEOUT2ELSEWAIT"口令错误" WINDOW TIMEOUT2ENDIFFlag=1EXITENDIFSKIPENDDOIF ________WAIT"用户名错误"WINDOW TIMEOUT2ENDIF则在横线处应填写的代码是A)flag=-1 B)flag=0 C) flag=1 D)flag=2
A.flag=-1
B.flag=0
C.flag=1
D.flag=2
A.flag=-1
B.flag=0
C.flag=1
D.flag=2
A.自动进口许可证
B.入境货物通关单
C.征免税证明
D.进口合同
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组,名称为cmdl,下标分别为0、1、2,Caption分别为“开始”、“停止”和“退出”,如图3(a)所示。通过属性窗口设置各命令按钮的属性,使得程序开始运行时,“停止”按钮不可见,“退出”按钮不可用,如图3(b) 所示。 注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。(2)在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为“打开”和“保存”的俞令按钮,和一个名称为CD1的通用对话框,如图4所示。请在属性窗口中设置CD1的属性,使得打开通用对话框时,其初始路径是“C:\”。再编写适当的事件过程,使得运行程序,分别单击“打开”或“保存”按钮时,相应地出现“打开”或“保存”对话框。要求程序中不得使用变量,每个事件过程中只能写一条语句。 注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
(23)
A. 1.3.6.1
B. 0.3.6.1
C. 4.6.1
D. 43.6.1
(24)
A. 故障节点等待GetRequest消息
B. 故障节点发送Trap消息
C. 故障节点等待SetRequest消息
D. 管理节点发送Trap消息
A.PonFast
B.UplinkFast
C.BackboneFast
D.BPDUFilter
A.只有所有输入事件都发生时,输出事件才发生
B.输入事件中任何一个事件发生时,输出事件就发生
C.当输入事件中n个事件发生时,输出事件发生
D.表示除了满足逻辑门的要求外,还需要满足该条件,才能导致输出事件发生
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。
[说明]
本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表框、目录列表框选定文件夹,文件列表框会自动列出该文件夹下所有文本文件名称,选中其中某个文件,再输入目标字符串并且单击“查找”按钮,就能看到查找的结果。
在开发过程中,驱动器列表框名为Drive1,目录列表框名为Dirl,文件列表框名为File1,目标字符串输入框名为Text1,“查找”按钮名为Command1。
[Visual Basic 代码]
Private Sub Drivel_Change()
Dirl. Path=(1) '更新目录列表框的路径
End Sub
Private Sub Dirl_Change()
(2)= Dirl. Path '更新文件列表框的路径 End Sub
Private Sub Commandl_Click()
Dim fso, a As Object
Dim i, j As Integer
If (3) = "" Then '判断是否已经选中某个文件
MsgBox "请选择一个文件文件!"
(4) '退出事件过程
End If
'创建文件系统对象以及文本流对象
Set fso = CreateOhjecl("Scripting. FileSystemOhject" )
Set a = fso. OpenTextFile(Dirl. Path & "/" &(3))
i=1
Do While (5)<> True '逐行读取文件,直至文件末尾
strLine = a. ReadLine
j = InStr(1,(6))'返回目标字符串在文件这一行中的位置
If j > 0 Then '如果目标字符串在这一行出现,则返回其位置
MsgBox "字符串第一次出现的位置是" & "(" & i & "," &j & "),,"
(4) '退出事件过程
End If
i:i+l
Loop
MsgBox "字符串在文件中不出现,"
End Sub