• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
填空题

下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个， 完成下列程序。 Private Sub Backward(a()) Dim i As Integer,Tmp As Integer Fori=1 To5 Tmp=a(i) a(5-i)=Tmp Nexti End Sub

答案： a(i)=a(5i)
题目列表

你可能感兴趣的试题

填空题

VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是______。
答案： 组合框或组合
填空题

DefSng a定义的变量a是______类型的变量。
答案： 单精度
填空题

顺序存储方法是把逻辑上相邻的结点存储在物理位置______的存储单元中。
答案： 相邻
填空题

刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对Form窗体的______属性进行设置。
答案： Font
填空题

图像框中的图形能与图像框的大小相适应，必须把该图片框的Stretch属性设置为_______。
答案： True
填空题

要想在文本框中显示垂直滚动条，必须把Scrolebars属性设置为2，同时还应把______属性设置为了True。
答案： MulUline
填空题

在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1.程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。
Private Sub Optionl_click(Index AS Integer) Select Case Index Case0 a=“宋体” Case 1 a=“黑体” Case2 a=“楷体_GB2312” End Select Text1.______=a End Sub
答案： Font或Font Name或Font.Name
填空题

为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的______属性设置为500.
答案： Intewal
填空题

若A=20，B=80，C=70，D=30，则表达式A+B＞160 Or(B*C＞200And Not D＞60)的值是______。
答案： True
填空题

以下程序用来计算由键盘输入的N个数中正数之和，负数之和，正数的个数，负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。 Privae Sub Commandl_Click N=10 C=0:IC=0:D=0:ID=0 For =1 To N A=Val(1nputBox(“请输入A”)) IFA＜0 Then C=C+A：IC=IC+1 lf A＞O Then D= Next K Print"负数的个数为：",IC Print"负数的和为：",C Print"正数的个数为："，ID Print"正数的和为：",D End Sub
答案： D+A:ID=ID+1
填空题

Private Sub Form_Activate() Forj=1 to 3 x=3 ForI=1 to 2 x=x+6 NextI Nextj Print x End Sub 程序运行后，窗体上显示的结果为上______。
答案： O
填空题

设A=2，B=-4，则表达式3*A＞5 0r B+8＞0的值是上______。
答案： Tme
填空题

下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。
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
答案： b(n,m)As Integer a(I,j)
填空题

下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个， 完成下列程序。 Private Sub Backward(a()) Dim i As Integer,Tmp As Integer Fori=1 To5 Tmp=a(i) a(5-i)=Tmp Nexti End Sub
答案： a(i)=a(5i)
微信扫码免费搜题