填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base1
Private Sub Command1_Click()
Dim a
s=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
运行上面的程序，单击命令按钮，其输出结果是{{U}} 【15】 {{/U}}。
填空题在Visual Basic 中按文件的访问方式不同，可以将文件分为顺序文件，随机文件和{{U}} 【15】 {{/U}}。
填空题有下列程序： DefStr X-Z X="12Y" Y="456" Z=X+Y Print Z End 运行后，输出结果是______。
填空题计时器控件能有规律的以一定时间间隔触发 ______ 事件，并执行该事件过程中的程序代码。
填空题表示“x和y都是正数或都是负数”的VB表达式为{{U}} 【2】 {{/U}}。
填空题能判断是否到达文件尾的函数是{{U}} 【12】 {{/U}}。
填空题下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。 Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1．Text，2)) If x Mod 2=0 Then Labe11．Caption=“偶数” Else Labe11．Caption=“奇数” End If Text1．SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If 【10】 ThenKeyAscii=0 End Sub
填空题当数据的物理结构(存储结构、存取方式等)改变时，不影响数据库的逻辑结构，从而不致引起应用程序的变化，这是指数据的 【5】 。
填空题在Visual FoxPro中，使用SQL的CREATE TABLE语句建立数据库表时，使用【12】子句说明主索引。
填空题下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
Dim an(10)As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)={{U}} 【10】 {{/U}}
Next
max=an(1)
For i%=2 to 10
if an(i%)＞max then
max=an(i%)
End If
Next
Print max
End Sub
填空题在窗体上画两个标签，其名称分别为Label1和Label2，Caption属性分别为“数值”及空白；然后画______个名称为Hscrolll的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Label2中显示滚动条的值，如图所示。请在______处填入适当的内容，将程序补充完整。PrivateSubHScrolll_______()Label2.Caption=HScrolll._____EndSub
填空题将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是{{U}} 【6】 {{/U}}。
填空题表达式(7/3+1)*(18/-1)的值是______。
填空题在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。请填空。
Private Sub Option1_Click(Index As Integer)
Select Case{{U}} 【10】 {{/U}}
Case 0
a=“宋体”
Case 1
a=“黑体”
Case 2
a=“楷体GB2312”
End Select
Text1.{{U}} 【11】 {{/U}}=a
End Sub
填空题设有如下表达式：10*x^2+5*x-2*Sin(B)/2，它相当于代数式{{U}} 【9】 {{/U}}。
填空题控件数组的名字由Name属性指定，而数组中的每个元素由{{U}} 【7】 {{/U}}属性指定。
填空题在窗体上画一个文本框和一个命令按钮，如下图所示。编写如下程序：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，程序输出的结果是{{U}}【9】{{/U}}。②程序运行后，单击一次“命令按钮1”，然后从键盘上输入abc，程序输出的结果是{{U}}【10】{{/U}}。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入a的值:”) (14) Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 (15) Debug．Print a，n，Sn End Sub
填空题数据库技术的主要特点为{{U}} 【4】 {{/U}}，具有较高的数据和程序的独立性以及对数据实行集中统一的控制。