填空题以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Texd中显示出来。请填空。
Pfivme Sub Commandl_Click( )
Dim inData As String
Textl.Text =""
Open"．/smtextl.txt"{{U}} 【14】 {{/U}}As#1
Do While{{U}} 【15】 {{/U}}
Input#1，in Data
Text1.Text=Text1.Text&inData
Loop
Close#1
End Sub
填空题以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在图片框Picture1中显示出来。请填空。
Private Sub Command1_Click
____
Dim inData As String
Open "./mText1.txt" ______ As 1
Do While Not EOF(1)
Input #1, inData
Picture1.Print inData
Loop
Close #1
End Sub
填空题下列软件系统结构图的宽度为________
填空题下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，请填宁。
Private Sub form_ Click()
Dim Ch As String
Open "c:/a1. txt, for {{U}}【8】 {{/U}}As #10
Open "d:/a2.txt" for Output As #20
do while {{U}}【9】 {{/U}}
Line Input #10, Ch
{{U}} 【10】 {{/U}}
Loop
Close 10
Close 20
End Sub
填空题下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer，b(5，5)As Integer For i=1 To 【10】 a(i)=Int(Rnd*25) Print a(i)； Next i Print For i=1 To 5 For i=1 To 5 b(i，j)= 【11】 Print b(i，j)； Next j Print Next i End Sub
填空题在窗体上建立一个单选按钮组Option1和一个图片框Picture1，如图所示。当选择不同的单选按钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。PrivateSubOptionl_Click(______)DimH,WPicture1.ClsPicturc1.PillStyle=______W=Picture1.ScaleWidth/2H=Picture1.ScaleHeight/2Picturc1.Circle(W,H),W/2EndSub
填空题菜单编辑器的“标题”选项对应于菜单控件的______属性。
填空题在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为 【10】 。
填空题数据库系统的三级模式分别为{{U}} 【4】 {{/U}}模式、内部级模式与外部级模拟。
填空题数据模型按不同应用层次分成3种类型，它们是概念数据模型、______和物理数据模型。
填空题如下图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommandl_CliCk()DimkAsInteger，nAsInteger，foundAsBooleanfound=Falsen=Len[8]k=0Whlek＜LiStl.ListCountAndNotfoundIfText1=Left$(Listl.List(k)，n)ThenTex2=[9]found=TrueEndIfk=k+1WendIfNotfoundThenText2=“查无此人”EndIfEndSub
填空题{{U}} 【3】 {{/U}}是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。
填空题文件根据数据性质，可分为{{U}} 【12】 {{/U}}文件和{{U}} 【13】 {{/U}}文件。
填空题描述“X是小于100的非负整数”的Visual Basic表达式是{{U}} 【6】 {{/U}}。
填空题执行下面程序，第一行输出结果是{{U}} 【12】 {{/U}}，第二行输出结果是{{U}} 【13】 {{/U}}。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A)
End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x＜10 Then
Call Sub1(x)
End If
x=x,2+1
Print x
End Sub
填空题我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡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 {{U}} 【7】 {{/U}}Then
Form1．Print Cock，Hen，Chick
End If
Next Chick
Next Hen
Next Cock
End Sub
填空题以下语句输出结果是{{U}} 【6】 {{/U}}。
Print Int(12345.6789* 100+0.5)/100
填空题在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。PrivateSubOption1_Click(1ndexAsInteger)SelectCase{{U}}【8】{{/U}}Case0a=“宋体”Case1a=“黑体”Case2a=“楷体GB2312”EndSelectText1.{{U}}【9】{{/U}}=aEndSub
填空题数据结构包括数据的逻辑结构、数据的 【2】 以及对数据的操作运算。
填空题若A=20,B=80，C=70，D=30，则表达式A+B＞1600r(B*C＞200AndNotd＞60)的值是______。