vb中的option base在模块的声明部分使用“Option Base 1”语句,然后定义二维数组A(2 to 5,
盘盘猫2022-10-04 11:39:541条回答
vb中的option base
在模块的声明部分使用“Option Base 1”语句,然后定义二维数组A(2 to 5,5),则该数组的元素个数为 ______ .
A.20
B.24
C.25
D.36
不是定义的是从1开始么,为什么不是20呢,答案是24,是不是答案错了?
在模块的声明部分使用“Option Base 1”语句,然后定义二维数组A(2 to 5,5),则该数组的元素个数为 ______ .
A.20
B.24
C.25
D.36
不是定义的是从1开始么,为什么不是20呢,答案是24,是不是答案错了?
已提交，审核后显示！提交回复
共1条回复
liuxing02084 共回答了20个问题 |采纳率100%- 20 没有问题
- 1年前
相关推荐
- VB 二维数组找最大元素位置,要求先设第一行第一列为最大元素,option base 1 求代码
VB 二维数组找最大元素位置,要求先设第一行第一列为最大元素,option base 1 求代码
Option Base 1
Private Sub Command1_Click()
Dim a(4, 5) As Integer
Dim i As Integer
Dim j As Integer
Dim v As Integer
Dim h As Integer
Picture1.Cls
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
Picture1.Print
a(h, v) = a(1, 1)
For i = 1 To 4
For j = 1 To 5
If a(h, v) < a(i, j) Then a(h, v) = a(i, j): h = i: v = j
Next j
Next i
Picture1.Print "数组中最大元素为第" & h & "行" & "第" & v & "列的" & a(h, v)
End Sub
Private Sub Command2_Click()
End
End Sub
我写的会溢出
Liebling1ysy1年前1 -
李朝万 共回答了25个问题
|采纳率80%Option Base 1
Private Sub Command1_Click()
Dim a(4, 5) As Integer
Dim i As Integer
Dim j As Integer
Dim v As Integer
Dim h As Integer
Picture1.Cls
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
Picture1.Print
h = 1
v = 1
For i = 1 To 4
For j = 1 To 5
If a(h, v) < a(i, j) Then h = i: v = j
Next j
Next i
Picture1.Print "数组中最大元素为第" h "行" "第" v "列的" a(h, v)
End Sub
Private Sub Command2_Click()
End
End Sub
你的代码错在a(h, v) = a(1, 1)和a(h, v) = a(i, j),不但是多余的,而且会改变的数组a的值,造成错误.你说说,你干嘛要让a(h, v) = a(i, j)呢?你只需要记录最大元素的下标值即可,最后通过下标值就可以知道最大元素的值了啊!1年前查看全部
- VB题目 option base0 dim a a =array(1,2,3,4,5,6,7,8,9) for i=0
VB题目 option base0 dim a a =array(1,2,3,4,5,6,7,8,9) for i=0 to 3 print a(5-i）next i end sub
设有如下程序：
Option Base 0
Private Sub Form Click()
Dim a
a =
Array(1， 2， 3， 4， 5， 6， 7， 8， 9)
For i = 0 To 3
Print a(5 - i)；
Next i
End Sub
程序运行后，单击窗体，则在窗体上显示的是
A．4 3 2 1
B．5 4 3 2
C．6 5 4 3
D．7 6 5 4
答案是C 想问为什么不是B 谁能解释一下
刀锋gerry1年前1 -
虫虫139 共回答了18个问题
|采纳率100%因为数组a=(1,2,3,4,5,6,7,8,9), For i = 0 To 3是从0开始,那么第一个循环Print a(5 - i) 也就是 a(5 - 0) == 6.
数组 a有9个元素,下标:
a (0) ==1;
a (1) ==2;
a (2) ==3;
........
a (8) ==9;
如果a (9)那就是下标越界了.你不会是认为最小标号是1而不是0吧?1年前查看全部
- VB中option base 1是什么意思啊?是不是可以用option base 3来定义一组下届为3的数组啊?
无敌的比卡丘1年前1
-
huawei1997 共回答了20个问题
|采纳率100%option base:在模块级别中使用,用来声明数组下标的缺省下界
option base后面只能是0或者1
由于默认是0 所以是0的时候可以不用option base语句
只有当你想Option Base 语句来取代数组下标的缺省值 0时才有必要用option base 1而且只能是option base 1而不能是 2 3 4.
但是这个语句不能限定TO语句,举个例子吧：
option base 1
dim a(3),b(0 to 3)
a(3)的下界就是1 而b(0 to 3)的下界是01年前查看全部
- vb题 求解答，求解释运行下列程序，Option Base 0: Private Sub Form_Click(): D
vb题 求解答，求解释
运行下列程序，Option Base 0: Private Sub Form_Click(): Dim a: Dim i As Integer: a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9): For i = 1 To 3: Print a(5 - i);: Next i: End Sub，单击窗体后输出结果是( )。（1分）
A、3 2 1
B、4 3 2
C、5 4 3
D、6 5 4
jiak19871年前1 -
落花有情113 共回答了15个问题
|采纳率100%答案是: C
i = 1 to 3
a(5-i)的三个需输出数组成员是分别是:a4,a3,a2
数组成员里,第一个1为a0,依此类推,所以答案是:5,4,31年前查看全部
- 运行下列语句后,输出的结果是( ).Option Base 1 Dim a i=1 a=Array(1,-2,9,0,-
运行下列语句后,输出的结果是( ).Option Base 1 Dim a i=1 a=Array(1,-2,9,0,-1,9) Do k=a(i) For m=10 To k Step-2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n)＜＞27
A．3 27-8 B．3-8 27 C．-8 27 3 D．-8 3 27shuishouwang1年前1 -
xmwang666 共回答了22个问题
|采纳率86.4%Option Base 1
Dim a
i = 1
a = Array(1, -2, 9, 0, -1, 9)
Do
k = a(i) 'k=a(1)=1 k=a(2)=-2 k=a(3)=9
For m = 10 To k Step -2 'm=10 to 1 step -2 10 to -2 step -2 10 to 9 step -2
n = k + m
Next m '最后n=3 最后n=-4 最后n=19
Print n + m '3+0=3 -4-4=8 19+8=27
i = i + 1
Loop While Abs(m + n) 27 退出循环
此程序段运行的输出是：
3
-8
27
选答案B1年前查看全部
- 下列程序运行后的输出结果是 下列程序运行后的输出结果是 Option base 1Private Sub Command
下列程序运行后的输出结果是
下列程序运行后的输出结果是
Option base 1
Private Sub Command1_Click()
Dim a（10）,p(3) as integer
k=5
for i= 1 to10
a(i)=i
next i
for i=1 to 3
p(i)=a(i)*i
next i
for i=1 to 3
k=k+p(i)*2
next i
print k
end subloon3001年前1 -
无脚爬虫 共回答了14个问题
|采纳率85.7%k=5
a(1)=1……a(10)=10
p(1)=a(1)*1=1,p(2)=2*2=4,p(3)=9
k=0+p(1)*2=2
k=2+p(2)*2=10
k=10+p(3)*2=281年前查看全部
- 求VB试题 解答 ，十万火急【程序1】请写出单击窗体后，窗体上的显示结果。Option Base 0
求vb试题 解答 ，十万火急
【程序1】请写出单击窗体后，窗体上的显示结果。
option base 0
private sub form_click()
dim a
dim i as integer
a=array(1,2,3,4,5,6,7,8,9)
for i=0 to 3
print a(5-i);
next
end sub
【程序2】请写出在text1、text2、text3中依次输入2、3、4后，单击窗体时label1的显示结果。
private sub form_click()
dim a as single, b as single, c as single
a = text1.text: b = text2.text: c = text3.text
label1.caption = str(a * a + 2 * b * b + 3 * c * c)
end sub
【程序3】请写出单击窗体后，窗体上的显示结果。
private sub form_click()
for i% = 1 to 3
print spc(3 - i%);
for j% = 1 to (2 * i%) - 1: print "w";: next j%
print
next i
end sub
——————————————————————————
五、程序填空题
1．【程序说明】下面是一段计算数学表达式的程序。
private sub form_click()
dim n as integer, p as integer, s as single, q as integer, i as integer
n = inputbox("请输入n的值:")
s = 0
p = -1
q = （1）
for i = 1 to （2）
p = -p
q = （3）
s = （4） + p * i / q
（5）
print s
end sub
_______________________________________________
________________________________________________________
________________________________________________________
严肃声明，本人求解不是为了***！
crossover171年前1 -
liuqi520 共回答了13个问题
|采纳率100%一、6 5 4 3
二、70
三、
W
WWW
WWWWW
五、
1.填空：
Private Sub Form_Click()
Dim n As Integer, p As Integer, s As Single, q As Integer, i As Integer
n = InputBox("请输入N的值:")
s = 0
p = -1
q = n
For i = 1 To n
p = -p
q = -q
s = s + p * i / q
next
Print s
……
End Su1年前查看全部
大家在问
- 1当太阳直射点的纬度度数等于α时,甲地昼长和乙地昼长之和为24小时（注：甲乙两地均无极昼现象）,试说明甲乙两地位置的异同.
- 2这个英文句子意思正确吗?Take care!Please do not let own injuries.If you
- 3Let these pains become stepping stones to better things in l
- 4长:5cm,宽2cm,高:3cm. 前、后每个面的长是()厘米,宽是()厘米,面积是()平方厘米.列算 上、下每个面的长
- 5下列地形变化属于人类活动造成的是（ ）
- 6初二英语缺词填空Mr Thomas and his wife t( ook ) their eight-year-old
- 7买椟还珠的含义是什么?
- 8家长会通知怎么写
- 9高中语文阅读答案里一句,选取代表性景物是什么意思
- 10若丨a-2丨+丨b-3丨+丨c-1丨=0,求a＋2b＋3c的值.
- 11我真舍不得您 作文
- 12纸上得来终觉浅的浅是什么意思,用简洁的话
- 13通过阅读,找找语文书里的故事,选一两个写下来,也可以谢谢你从故事中得到的启示
- 14人教版六年级上册词语手册积少成多11课急!
- 15Is that true that it's hard to be a person?