填空题在窗体上面画一个命令按钮,然后编写如下程序:
Function M(x As Integer, y As Integer) As Integer
M = IIf(x>y, x, y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 2
b = 5
Print M(a, b)
End Sub
程序运行后,单击命令按钮,输出结果为
________
。
填空题窗体如图2所示,其中汽车是名称为Image1的图像框,命令按钮的名称为command1,计时器的名称为Timer1,直线的名称为Line1。程序运行时,单击命令按钮,则汽车每0.1s向左移动100,车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序,以便实现上述功能。①Timer1的Interval属性的值应事先设置为(6)。②PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfImage1.Left>=(7)ThenImage1.Left=(8)-100EndlfEndSub
填空题执行下列程序后输出如下所示矩阵,填空将程序补充完整。
1 0 0 2
0 3 4 0
0 5 6 0
7 0 0 8
Private SubCommand1_Click()
Dim a(4,4)
For i=1 To 4
For i=1 To 4
If{{U}} 【9】 {{/U}}Then
{{U}} 【10】 {{/U}}
a(i,j)=k
Else
a(i,j)=0
End If
Print a(i,j);
Next i
Print
Next i
End Sub
填空题在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(1 To 100)As Integer
For i=1 To 100
arr(i)=Int(Rnd*1000)
Next i
Max=arr(1)
Min=arr(1)
For i=1 To 100
If {{U}}【7】 {{/U}} Then
Max=arr(i)
End If
If {{U}}【8】 {{/U}} Then
Min=arr(i)
End If
Next i
Print "Max=";Max,"Min=";Min
End Sub
程序运行后,单击命令按钮,将产生100个1000以内的随机整数,加入数组arr中,然后查找并输出这100个数中的最大值Max和最小值Min,请填空。
填空题假定有以下当循环: While Not条件 循环体 Loop 则执行循环体的“条件”是______。
填空题Visual Basic对象可以分为两类,分别为 【6】 和 【7】 。
填空题以下程序的功能是在程序运行后,单击命令按钮,输出如下结果:
1 4 7
2 5 8
3 6 9
请完善以下程序。
Private Sub Command1_Click()
Dim Arr(3,3)As Integer
For i=1 To 3
For j=1 To 3
Arr(i,j)={{U}} 【15】 {{/U}}
Print Arr(i,j);
Next j
Print
NeXt i
End Sub
填空题在窗体上画一个标签、一个计时器和一个命令按钮,其名称分别为Label1、Timer1和Command1,如图8所示。程序运行后,如果单击命令按钮,则标签开始闪烁,每秒钟“欢迎”二字显示和消失各一次,如图9所示。以下是实现上述功能的程序,请填空。PrivateSubForm_Load()Label1.Caption="欢迎"Timer1.Enabled=FalseTimer1.Interval=(7)Command1.Caption="开始闪烁"EndSubPrivateSubTimer1_Timer()Label1.Visible=(8)EndSubPrivateSubCommand1_Click()(9)EndSub
填空题如果要在单击命令按钮时执行一段代码,则应将这段代码写在 (11) 事件过程中。
填空题语句Print"Int(-13.2)=";Int(-13.2)的输出结果为______。
填空题注释一般分为序言性注释和______注释。
填空题数据库系统阶段的数据具有较高独立性,数据独立性包括物理独立性和 【4】 两个含义。
填空题实体之间的联系可以归结为一对一联系、一对多(或多对多)的联系与多对多联系。如果一个学校有许多教师,而一个教师只归属于一个学校,则实体集学校与实体集教师之间的联系属于 【5】 的联系。
填空题变量未赋值时,数值型变量的值为______,字符串变量的值为______。
填空题有如下程序,该程序的执行结果是 【6】 。Private Sub Command1 Click() For i=1 To 4 x=4 For j=1 To i x =3 For k=1 To 2 x= x + 5 Next k Next j Next i Print x End Sub
填空题单元测试又称模块测试,一般采用 【3】 测试。
填空题要想在文本框中显示垂直滚动条,必须把______属性设置为2,同时还应把______属性设置为______。
填空题在Visual FoxPro中,数据表中备注型字段所保存的数据信息存储在以______为扩展名的文件中。
填空题窗体上有一个命令按钮,数据文件data.txt的内容如下:
"语文" "2001", 87
"数学" "2002", 75
"英语" "2003", 92
"体育" "2004", 66
Type bs
aa As String * 2
bb As String * 4
cc As Integer
End Type
Private Sub command1_Click(
Dim xs As bs
Dim fl As Integer
fl = FreeFile
Open "d:/data.txt" For Input As #fl
Do While Not EOF(fl)
Input #fl, xs. aa, xs .bb, xs.cc
List1.AddItem xs.bb
List1.AddItem xs.aa
List1.AddItem xs.cc
Loop
Print EOF(fl)
Close
End Sub
问:在列表框中第一行、第三行、第四行的内容是{{U}} 【12】 {{/U}}、{{U}} 【13】 {{/U}}、{{U}} 【14】 {{/U}}。窗体上打印出的是{{U}} 【15】 {{/U}}。
填空题对于给定的一组关键字(12,2,16,30,8,28,4,10,20,6,18),按照希尔排序(增量为5)算法进行递增排序,第一趟排序后得到的结果是
________
。
