正确答案: B

flag=0

题目：假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下： USE 口令表 GO TOP flag =0 DO WHILE .not.EOF（） IF Alltrim（用户名）==Alltrim（Thisform.Text1.value） If Alltrim（口令）＝＝Alltrim（Thisform.Text2.value） WAIT\"欢迎使用\"WINDOW TIMEOUT2 ELSE WAIT\"口令错误\"WINDOW TIMEOUT2 ENDIF flag=1 EXIT ENDIF SKIP ENDDO IF —————— WAIT\"用户名错误\"WINDOW TIMEOUT2 ENDIF 则在横线处应填写的代码是

查看原题查看所有试题

学习资料的答案和解析：

[单选题]在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

标签的移动方向为自右向左

[单选题]数据库设计中，按照统一观点构造全局逻辑结构，这称为数据库的()。

概念模式

[单选题]下列哪个是满足要求的正确表达式：年龄在20到60之间(包括年龄20～60在内)或工资少于500的女职工( )。

(20=年龄and年龄=60 or 工资500)and性别="女"

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X20 Then Y=X Else Y=20+X End If func=Y End FunctiOn Phvate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Phvate Sub Form_MouseUp(BuRon As Integer,Shin As Integer，X As Single,Y As Single) SW=Tree End Sub Pdvate Sub Commandl-Click() Dim intNum As Integer intNum=InputBox("") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为______。

无任何输出

解析：解析：当鼠标指针在屏幕的某个对象上按键时，就会激发这个对象的MouseDown事件与MouseUp事件。本题中单击的是命令按钮，而不是窗体，故窗体的MouseDown事件与MouseUp事件没有被激发，所以SW为 False，因为如果定义了一个Boolean型变量，如果不对它赋值，默认就是False。所以Print func(intNum)语句没有被执行，当然也就无任何输出了。

[单选题]下列关于数组的叙述，错误的是

在Visual FoxPro中只能使用一维数组、二维数组或三维数组

解析：解析：在Visual FoxPro中，除可以使用一维数组、二维数组外，不可以使用三维数组和多维数组。数组的大小由下标值的上下限决定。

[单选题]查询十天前的记录应使用( )作为准则。

Date( )-10