77问答网
所有问题
当前搜索:
vb求数组中最大数
VB
总是提示缺少数组或用户类型定义 求包含若干元素的
数组中最大
最...
答:
Function maxmin(a() As Integer) As Integer ,a() 为整形
数组
,Dim a()应为 Dim a() As Integer 其参数a为数组,调用 Print maxmin(a(r)) ,a(r) 为元素,应为Print maxmin(a())maxmin函数定义为整形,但是 maxmin = "max=" + max + ";" + "min=" + min 赋值为字符型 ...
...求
最大
值和平均值,并显示整个
数组
的值和结果。
答:
avg = avg + N(i - 30)If (max < N(i - 30)) Then max = N(i - 30)Next Print "整个
数组
:"For i = 30 To 100 If ((i - 30) Mod 10 = 0) Then Print Print N(i - 30);Next Print Print Print "其中,
最大
值为"; max Print "平均值为"; avg / 71 End Sub ...
vb中
有获取
数组
的长度函数吗?
答:
UBound返回
数组
上限,LBound返回下限。一般默认的数组是从0开始的,长度就是UBound(a)+1,如果再专门搞个函数获取长度的话有点多余。
vb 求最大
值
答:
Function fun(a() As Integer, n As Integer) As Integer Dim i%, max For i = 1 To n max = IIf(a(i) > max, a(i), max)Next fun = max End Function Private Sub Command1_Click()Dim tmp%(1 To 30), i For i = 1 To 30 tmp(i) = Int(Rnd * 100)Next Print fun...
这是
VB中
的一个问题:
求数组中
的
最大
元素所在下标及个元素之和。要求写出...
答:
当print的最后没有逗号或分号时,print方法便会产生一个换行符。注意:逗号表示在前一个输出项(小于14×n)的第一个字符起向后数14×n字符才输出下一个输出项。分号表示前一个输出项与后一个输出项合成为一个输出项输出。Print中的函数:Tab(n)表示从对象的最左端开始计数,在n个字符处才开始打印...
搜“
vb中
label控件如何同时输出一维数组和这个一维
数组中
的
最大
最小...
答:
Dim a$(5), i%, max%, min%, s For i = 0 To 5 a(i) = Int(Rnd() * 94 + 6)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)s = s & a(i) & " "Next Label1.Text = s & vbCrLf & "
最大
值是:" & max & Space(4) & "最小值...
【超简单,很急】
VB
程序设计输入十个数,输出
最大
和最小数
答:
Dim a(10) As Integer For i = 1 To 10 a(i) = InputBox("请输入第" & i & "个数:")Print a(i);Next i Print Max = a(1)Min = a(1)For i = 1 To 10 If Max < a(i) Then Max = a(i)If Min > a(i) Then Min = a(i)Next i Print "
最大
值为:" & Max ...
...该数组的值用inputbox输入,并在提上输入该数组,
数组中最大
值...
答:
form 上 放一个 按钮,一个文本框(多行,垂直滚动条)Private Sub Command1_Click()Dim i, j As Integer Dim a(2, 3) As Integer Dim max As Integer Dim Imax, Jmax As Integer For i = 0 To 3 - 1 For j = 0 To 4 - 1 a(i, j) = CInt(InputBox("Input " + CStr(i)...
vb编程
用for循环向一维
数组中
输入10个数,
找出
其中的
最大
值和最小值...
答:
x(1) : min = x(1)If x(i) > max Then max = x(i)If x(i) < min Then min = x(i)Label4.Caption = Label4.Caption & x(i) & " "Next i Label4.Caption = Label4.Caption & vbCrlf & "Max=" & max & " Min=" & min 还有你没有说什么是“交换
最大
值”。
vb中求数组最大
上标的命令是?
答:
Private Sub Command1_Click() Cls Dim a(1 To 10) As Integer, b(1 To 10) As Integer, work As Boolean, i As Integer, j As Integer, x As Integer Randomize For i = 1 To 10 a(i) = Int((90 * Rnd) + 10) Print a(i) b(i) = a(i) Next i Print For i = 10 ...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜