米老鼠和唐老鸭图片_VB程序设计:随机生成10个数据,用一维数组存放(默认下标从1开始),输出数组元素于一行,将该数组元素...

2020-07-17

VB程序设计:随机生成10个数据,用一维数组存放(默认下标从1开始),输出数组元素于一行,将该数组元素...


新建一个工在窗体上添加一个,输入以下代码,点击按钮就可
Private a1&(1 To 10), a2&(1 To 10)
Private Sub Command1_Click()
Dim b1&, b2&
For b1 = 1 To 10
a1(b1) = Int(Rnd() * 100)
Print a1(b1);
Next
Print
For b1 = 10 To 1 Step -1
Print a1(b1);
Next
Print
Print "下标:";
For b1 = 1 To 10 Step 2
Print a1(b1);
Next
Print
Print "下标偶数:";
For b1 = 2 To 10 Step 2
Print a1(b1);
Next
End Suboption
base

在模块级别中使用,用来声组下标的缺省下界法option
base
{0
|
1}说明下界的缺省设置是
0,因此无需使用
option
base
语句。如果使用该语句,则必须写在模块的所有过程之前。一个模块中只能出现一次
option
base,且必须位于带维数的数组声明之前。注意
dim、private、public、redim
以及
static
语句中的
to
子句提供了一种更灵活的方式来控制数组的下标。不过,如果没有使用
to
子句显式地指定下界,则可以使用
option
base
将缺省下界设为
1。使用
array
函数或
paramarray
关键字创建的数组的下界为
0;option
base

array

paramarray
不起作用。option
base
语句只影响位于包含该语句的模块中的数组下界。
一维数组中,输出最大值和最小值,VB编程,求各位大神解答

下面的代码能正确执行,已经通过:Subxxx()
DimSstr,Arr,Vmin,Vmax,i
Sstr=InputBox("输些数字,用空格分开")
Arr=Split(Trim(Sstr),"")
Fori=LBound(Arr)ToUBound(Arr)
IfTrim(Arr(i))<>""Then
Arr(i)=Val(Arr(i))
Ifi=LBound(Arr)OrArr(i)Ifi=LBound(Arr)OrArr(i)>VmaxThenVmax=Arr(i)
EndIf
Nexti
MsgBox"最小"&Vmin&",最大值是"&Vmax
EndSub遍历数组比较大小替换,如,int 小=0 if 数组[i]>小 then 小=数组[i] 反之比较小于...dim a(10)
for i = 0 to 10
a(i)=int(rnd*100)
next
min=a(0)
max=a(1)
for i = 0 to ubound(a)
if a(i)>max then max=a(i)
if a(i)next
msgbox "大" & max & " 小:" & min
VB编程:使用inputbox 函数输入20个整数,保存到一维数组A中,将数组A中各


Private Sub Command1_Click()
Dim a(20) As Integer
For i = 1 To 20
a(i) = InputBox("" & i & "")
Next i
x = a(20)
For i = 20 To 2 Step -1
a(i) = a(i - 1)
Next i
a(1) = x
For i = 1 To 20
Print a(i),
If i Mod 5 = 0 Then Print
Next i
End Sub本回答被网友采纳
用vb编程 编程输出杨辉三角:输入n,显示n+1行,使用一维数组,用动态数组定义,用Print输出.

PrivateSubCommand1_Click()Dima()AsIntegern=InputBox("N=")ReDima(0Ton)AsIntegera(0)=1Fori=0TonPrintSpace(3*(n-i));Forj=iTo1Step-1a(j)=a(j-1)+a(j):PrintFormat(a(j),"@@@@");NextjPrintFormat(a(0),"@@@@@@")NextiEndSub

本回答被提问者采纳