VISUAL BASIC历年真题题库
本试题来自：（2010年VISUAL BASIC历年真题，）一、选择题(每小题2分，共70分)
下列各题四个选项中，有一个是正确的，请选择正确答案。有下面的程序段，其功能是按图1所示的规律输出数据
　　Dim a(3,5) As Integer
　　For i=1 To 3
　　For j=1 To 5
　　A(i,j)=i+j
　　Print a(i,j);
　　若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是
A．For i=1 To 5　　For j=1 To 3　　Print a(j,i);　　Next　　Print　NextB．For i=1 To 3　　For j=1 To 5　　Print a(j,i);　　Next　　Print　　NextC．For j=1 To 5　For i=1 To 3　　Print a(j,i);　　Next　　Print　　NextD．For i=1 To 5　　For j=1 To 3　　Print a(i,j);　　Next　　Print　　Next正确答案：有， 或者
您可能感兴趣的试题
单项选择题：（)单击命令按钮时，下列程序的执行结果为（
　　Private Sub Command1_Click()
　　　Dim x As Integer，y As Integer
　　　x=12：y=32
　　　Call Proc(x，y)
　　　Print x；y
　　End Sub
　　Public Sub Proc(n As Integer，ByVal m As Integer)
　　　n=n Mod 10
　　　m=m Mod 10
　　End Sub
3答案：有，答案解析：有，单项选择题：（)以下叙述错误的是______。A．用Shell函数可以执行扩展名为.exe的应用程序
B．若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型
C．Static类型的变量可以在标准模块的声明部分定义
D．全局变量必须在标准模块中用Public或Global声明答案：有，答案解析：有，
VISUAL BASIC历年真题最新试卷
VISUAL BASIC历年真题热门试卷关于VB的一道题_百度知道
关于VB的一道题
Dim stu() As StringDim num(0 To 9) As StringDim nam(0 To 9) As StringPrivate Sub half(a() As String, ByVal key As String, num As Long)
'传送上来的值有5个，而这里只有3个可以赋值 （这里应该是对应，传5个赋5个吧！）Dim mid As Integer, begin As Integer, finish As IntegerDim find As Booleanbegin = LBound(a) ‘ 这里什么意思？这里是指什么的下界？是指lbound(num())吗?finish = UBound(a) Do While (begin &= finish) And (Not find) mid = (begin + finish) / 2If a(mid) = key Thenfind = TrueExit DoElseIf key & a(mid) Thenfinish = mid - 1Elsebegin = mid + 1End IfLoopIf find Thennum = midElsenum = -1End IfEnd SubPrivate Sub order(nu() As String, na() As String)Dim i As IntegerDim j As IntegerDim temp As StringFor i = 0 To UBound(nu)For j = i + 1 To UBound(nu)If Val(nu(i)) & Val(nu(j)) Thentemp = nu(i)nu(i) = nu(j)nu(j) = temptemp = na(i)na(i) = na(j)na(j) = tempEnd IfNext jNext iEnd SubPrivate Sub Command1_Click()Dim findstr As StringDim findname As StringDim n As Longfindstr = Text1.TextCall half(num(), LBound(num), UBound(num), findstr, n)If n &= 0 Thenfindname = nam(n)Label1.Caption = &您要找的学生姓名& & findnameEnd IfEnd SubPrivate Sub Form_Load()Dim i As IntegerDim j As IntegerPrintForm1.Showstu = Split(&040102,王国民,040105,李铁木,040103,黄花花,040101,张小麦,040104,张科,040110,田圆圆,040106,王小烁,040107,柯 达,040108,天天,040109,留门&, &,&)Print &学号&; &姓名&For i = 0 To UBound(stu) Step 2num(j) = stu(i)nam(j) = stu(i + 1)Print & &; stu(i); stu(i + 1)j = j + 1Next iCall order(num, nam)End Sub
提问者采纳
Private Sub half(a() As String, ByVal key As String, num As Long)
' a()对象是一个字符数组 byval key是一个以值传递的字符串，num不用说了 begin = LBound(a)
这里指的是数组a的上标=0finish = UBound(a) 下标如 a(0 to 5) 那么LBound(a)=0 ， UBound(a)=5长度等于 UBound(a)-LBound(a)+1
提问者评价
其他类似问题
为您推荐：
其他2条回答
不需要传那么多参数，这样传过去就可以了Call half(num(), findstr, n)
为了方便叙述，对各行分别编号：
1、Function fun(By Val num As Long) As Long
2、Dim k As Long
4、num= Abs(num)
5、Do While num
6、k = k *(num Mod 10)
7、num= num\ 10
9、fun = k
10、End Function
11、Private Sub Command1_Click()
12、Dim n, r As Long
13、n = InputBox(&请输入一个数:&)
14、n = CLng(n)
15、r = fun(n)
16、print r
17、End Sub
执行顺序为
13 这里n是一个字符串。n=“234”
14 将这个字符串转换成长整形数，还存放在n里。n=234
15 调用fun函数
4 num取绝对值。num=234
6 k=1*（234 mod 10）=1*4=4
7 num=num\10=234\10=23
6 k=4*(23 mod 10)=4*3=12
7 num=23\10=2
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您还未登陆，请登录后操作！
VB代码问题
是什么意思？最好能一句一句的解释。谢谢啦！！！
Private Sub Command1_Click()
Dim intx As Integer
Dim counterA(5) As Integer
For intx = 0 To 5
counterA(intx) = intx
Next intx
Dim counterB(2) As String
counterB(2) = &hello&
Dim arrx(2) As Variant
arrx(1) = counterA()
arrx(2) = cunnterB()
msgbox arrx(1) (2)
主要就是考你Variant数组,可以将不同数据类型的数组放一起
Private Sub Command1_Click()
Dim intx As Integer
'声明Integer型数组
Dim counterA(4) As Integer
For intx = 0 To 5
'给counterA元素赋值
counterA(intx) = intx
'声明String型数组
Dim counterB(2) As String
'赋值"hello"
counterB(2) = "hello"
'这里是重点,声明有两个成员的新数组
Dim arrx(2) As Variant
'将counterA()所有元素赋值给数组arrx(1)
arrx(1) = counterA()
'同上可以理解
arrx(2) = cunnterB()
'显示arrx(1)数组中的第3个元素,也就是counterA(2)
msgbox arrx(1) (2)
'你可以把counterB()也改成counterA()
主要就是考你Variant数组,可以将不同数据类型的数组放一起
Private Sub Command1_Click()
Dim intx As Integer
'声明Integer型数组
Dim counterA(4) As Integer
For intx = 0 To 5
'给counterA元素赋值
counterA(intx) = intx
'声明String型数组
Dim counterB(2) As String
'赋值"hello"
counterB(2) = "hello"
'这里是重点,声明有两个成员的新数组
Dim arrx(2) As Variant
'将counterA()所有元素赋值给数组arrx(1)
arrx(1) = counterA()
'同上可以理解
arrx(2) = cunnterB()
'显示arrx(1)数组中的第3个元素,也就是counterA(2)
msgbox arrx(1) (2)
'你可以把counterB()也改成counterA()这样的数组,然后看看
'arrx(2)(2)的值是多少.
“For i = 1 To 10
Form1.Print a(i), Tab(9)
这一段中将“Form1.”去掉
大家还关注vb课后练习答案习题解答 (5)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
vb课后练习答案习题解答 (5)
阅读已结束，如果下载本文需要使用
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩11页未读，继续阅读
你可能喜欢