填空题控件被拖动时显示的图标是由控件的______属性决定的。
填空题数学表达式3/5ex＋2的VB表达式是{{U}} 【5】 {{/U}}。
填空题下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU()
Dim n As Integer
a$="Beijing University of Technology"
n=Len(a$)
For i=1 To n
b$=______
If b$="i" Then x=x+1
Next
Print "x=":x
End Sub
填空题下列程序的功能是：单击窗体时随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。 Option Base 1 Private Sub Form Click() Dim a(20)As Integer，i As Integer Dim t As Integer，j As Integer Randomize For i=1 To 20 a=10+Int(90*Rnd) Print a(i)； Next Print i=1: 【4】 Do While i＜j t=a(i): 【5】 a(j)=t i=i+1: j=j-1 Loop For i=1 To 20 Print a(i); Next i Print End Sub
填空题执行下面的程序段，x的值为 【10】 。 Private Sub Command1_Click() For i=1 To 9 a=a+i Next x=Val(i) MsgBox x End Sub
填空题对象的属性是指______。
填空题数据库管理系统常见的数据模型有层次模型、网状模型和{{U}} 【5】 {{/U}}三种。
填空题如图16-10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubConmlandl_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len(【6】)k=0Whilek＜List1.ListCountAndNotfoundIfText1=Left$(List1.List(k),n)ThenText2=【7】found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub
填空题下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d：/stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。Type student No As Long Name As String * 20 English As IntegerEnd TypePrivate Sub form_ Click () Dim k As student, i As Integer 【8】 Open "d:/stu1. dat" for Random As #10 Len = Reclen for i = 1 To 5 k. No= InputBox(“请输入学号”) k. Name = InputBox (“请输入姓名”) k. English= InputBox (“请输入英语成绩”) 【9】 Next i 【10】 Print k. No; k. Name; k. English Close #10End Sub
填空题数据库系统的三级模式分别为{{U}} 【4】 {{/U}}模式、内部级模式与外部级模式。
填空题下列表达式有错误，正确的写法应该是 【6】 。 [(a+B)+c]/80-5÷(d+e)
填空题一个完整的程序必须完成3个层次的过程，它们分别是编码、测试和 【4】 。
填空题我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡5元，每只母鸡3元，三只雏鸡1元；如何用100元买100只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。
Private Sub Commandl_Click()
Dim Cock As Integer
Dim Hen As Integer
Dim Chick As Integer
Forml．Print“公鸡数”，“母鸡数”，“雏鸡数”
For Cock；0 To 20
For Hen=0 To 33
For Chick=0 To 100
If 【 】Then
Form1．Print Cock，Hen，Chick
End If
Next Chick
Next Hen
Next Cock
End Sub
填空题执行下面的程序段后，S的值为{{U}} 【7】 {{/U}}。
s=5
For i=2.6 To 4.9 Step 0.6
S=S+1
Next i
填空题在窗体上画一个文本框和一个命令按钮，如下图所示。编写如下程序：PrivateSubForm_Load()ShowText1.Text=""Form1.KeyPreview=FalseText1.SetFocusEndSubPrivateSubCommand1_Click()KeyPreview=NotKeyPreviewPrintEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintUCase(Chr(KeyAscii+1))；EndSubPrivatesubText1_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii+2)KeyAscii=0EndSub阅读以上程序，理解每个事件过程的操作，然后填空。①程序运行后，直接从键盘上输入abc，程序输出的结果是【9】。②程序运行后，单击一次“命令按钮1”，然后从键盘上输入abc，程序输出的结果是【10】。
填空题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在{{U}} 【6】 {{/U}}处填入适当的内容，将程序补充完整。
Private Sub Form_Load( )
Command1.Enabled=False
End Sub
Private Sub Text1{{U}} 【6】 {{/U}}( )
Command1.Enabled=True
End Sub
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。 Private Sub Form 【7】 (Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then 【8】 mnuEdit End If End Sub
填空题2+3 *4^5-Sin(x+1)/2中最先进行的运算是______。
填空题程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。
Option Explicit
Private{{U}} 【12】 {{/U}}
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
{{U}} 【13】 {{/U}}
Else
Text1.Text=""
End lf
Print“程序运行完毕，可再双击窗体”
End Sub
填空题数据库理论中，数据的独立性一般可分为物理独立性和{{U}} 【4】 {{/U}}