填空题下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。 Option Base 1 Private Sub Form_Click() m=Input Box(“输入行数”):n=InputBox(“输入列数”) [11] a(m,n)AS Integer,b(n,m)AS Integer ForI=1 to m Forj=1 to n a(I,j)=Int(Rnd*90)+10 Next:Next ForI=1 to m Forj=1 to n b(j,1)= [12] Next:Next End Sub
填空题模块级变量的声明关键字是Dim或______。
填空题如果在立即窗口中执行以下操作：
a=8
b=9
print (a＞b);
则输出结果为______。
填空题设有以下程序： Option Base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(12,435,76,24,78,54,866,43) 【14】 = arr1(1) For i = 1 To 8 If arrl(i)＞Max Then 【15】 Next i Print "最大值："； Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
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}}。