• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
填空题

描述"X是小于500的非负整数"的Visual Basic表达式是______。

答案： X＜500 And X＞=0
题目列表

你可能感兴趣的试题

填空题

已知二叉树后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是______。
答案： cedba
填空题

一个栈的初始状态为空。首先将元素1，2，3，4，5依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序为______。
答案： 5DCBA4321
填空题

一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体"项目主管"与实体"项目"的联系属于______的联系。
答案： 一对多
填空题

在最坏情况下，简单插入排序需要______次比较。
答案： n(n-1)/2
填空题

软件测试可分为白盒测试和黑盒测试。逻辑覆盖测试属于______测试。
答案： 白盒
填空题

描述"X是小于500的非负整数"的Visual Basic表达式是______。
答案： X＜500 And X＞=0
填空题

设窗体上有一个名称为Combo1的组合框，并有以下程序：
Private Sub ComboLKeyPress(KeyAscii As Integer)
If (7) =13 Then 回车符的ASCⅡ码是13
For k=0 To (8) -1
If Combo1.Text=Combo1.List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1.Text＜＞" "Then
Combo1.AddItem (9)
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。
答案： KeyAscii
填空题

设有如下的记录类型：
Dim stul as student
Type student
number As String
name As String
age As Integer
End Type
则引用该记录成员number的代码是______。
答案： Stul.number
填空题

假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体隐藏，显示窗体Form2，请将下面的程序补充完整。
Private Sub Command1_Click()
Form1. (11)
Form2. (12)
End Sub
答案： Hide
填空题

窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有一个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load()
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick()
Dim S As String*1
If Right(File1.Path,1)="\"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"\"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1，#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
答案： *.txt
填空题

假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体隐藏，显示窗体Form2，请将下面的程序补充完整。
Private Sub Command1_Click()
Form1. (11)
Form2. (12)
End Sub
答案： Show
填空题

窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有一个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load()
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick()
Dim S As String*1
If Right(File1.Path,1)="\"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"\"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1，#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
答案： For Input
填空题

设窗体上有一个名称为Combo1的组合框，并有以下程序：
Private Sub ComboLKeyPress(KeyAscii As Integer)
If (7) =13 Then 回车符的ASCⅡ码是13
For k=0 To (8) -1
If Combo1.Text=Combo1.List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1.Text＜＞" "Then
Combo1.AddItem (9)
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。
答案： Combo1.ListCount
填空题

窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有一个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load()
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick()
Dim S As String*1
If Right(File1.Path,1)="\"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"\"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1，#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
答案： NOT EOF(1)
填空题

设窗体上有一个名称为Combo1的组合框，并有以下程序：
Private Sub ComboLKeyPress(KeyAscii As Integer)
If (7) =13 Then 回车符的ASCⅡ码是13
For k=0 To (8) -1
If Combo1.Text=Combo1.List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1.Text＜＞" "Then
Combo1.AddItem (9)
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。
答案： Combo1.Text
微信扫码免费搜题