Private Sub Form_Click()
Dim i As Integer
Dim a(10) As Integer
For i = 1 To 10
a(i) = Rnd * 100
Next
Call Sortnum(a, 10)
For i = 1 To 10
Print a(i);
Next
Print "Max:" & MaxNum(a, 10)
Print "Ave:" & AveNum(a, 10)
End Sub
Function MaxNum(a() As Integer, n) As Integer
Dim i As Integer, m As Integer
m = a(1)
For i = 1 To n
If m < a(i) Then m = a(i)
Next
MaxNum = m
End Function
Function AveNum(a() As Integer, n) As Single
Dim i As Integer, m As Single
m = 0
For i = 1 To n
m = m + a(i)
Next
AveNum = m / 10
End Function
Sub Sortnum(a() As Integer, n)
Dim i As Integer, j As Integer, t As Integer
For i = 1 To n
For j = i To n
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
End Sub
求VB大神帮帮忙,解一下两个编程题!在线等,急!拜托了,谢谢(ฅ>ω<*...
第一题：Dim A As String, B As String, C As Integer, D As StringPrivate Sub Command1_Click()A = ""B = ""C = 0D = ""For i = 1 To 10 Step 1 B = Int((100 - 10 + 1) * Rnd + 10) A = A & "," & B If B Mod 3 = 0 Then C = C + 1...
...For语句、If语句、循环...题目如图,在线等,
b = CInt(Text2.Text)If b > a And b \/ a < 1.2 Then Label3.Caption = "警告，您的车速超过限速！"Else If b \/ a >= 1.2 And b \/ a < 1.5 Then Label3.Caption = "您的车速超过限速20%，处200元罚款，驾驶证记6分！"Else c = (b - a) \/ a * 100 y = c * 2...
求问一道VB题,求过程谢谢
第一圈，i=0，i=i+3=3，n=n+1=1，运行完第一圈for，i自动加一，因此运行完第一圈i=4。第二圈，i=4，i=i+3=7，n=n+1=2，运行完第二圈for，i自动加一，因此运行完第二圈i=8。第三圈，i=8，i=i+3=11，n=n+1=3，此时满足i>10，结束循环，没有运行完第三圈for，i不自动...
Vb计算机程序,求大神解题解答?法案和过程哦?在线等 挺急的?
总共有0~9 .（小数点）+ - * \/ = 和C（删除）17个按钮与一个Label(输出）Option Explicit Private StoredValue As Double Private Const opNone = 0 Private Const opAdd = 1 Private Const opSubtract = 2 Private Const opMultiply = 3 Private Const opDivide = 4 Private Operator As In...
有没有学vb的同学会这道题 如图 怎么编程 请大神写详细点 如果有人再...
滚动条 onchang 事件里添加代码如下。text1.font.size=Hscroll1.Value
求大神帮我做一下VB,三道题,用do while loop
void main(){ int x=0,y=2;doudle sum;do { sum+=x++\/y++;} while(y<=100)printf("sum的值为%lf",sum);} 第二道 include<stdio.h> void main(){ int x=1,y=2;doudle sum;do { sum+=x\/y;y+=2;} while(y<=96)printf("sum的值为%lf",sum);} 第三道 include<stdio....
VB的两道题目,请问谁可以帮我解答一下,说一下解题思路
第1题：x=1 y=2 是两句语句 在VB中冒号的作用，使得两句语句可以写在同一行里，例如：x=1 : y=2 还可以多句语句 x=1 : y=2 : z=3 等等 在VB中，?号的作用，相当于Print 语句，就是在窗体或者图片框（PicTureBox控件）上输出内容，分号的作用就是使得两个输出的内容紧连在一起；而...
求大神解答这道vb题目 谢谢!!
参考代码：Function CalcSalary(ByVal StartSalary As Long, _ ByVal Age As Long, _ Optional ByVal AgeTo As Long = 65) As Long If Age <= AgeTo Then CalcSalary = CalcSalary(StartSalary * (1 + 0.05), Age + 1, AgeTo) Else CalcSalary = StartSalary ...
vb编程中有这样一道题,对于初学者是在不懂,谢谢!
在VB编程中，处理数学运算时，常使用到e和ln这两个符号。e表示自然常数，可以通过exp函数表示，即e的x次方表示为exp(x)。同样，ln表示自然对数，可以通过log函数表示，即ln(x)表示为log(x)。这里的x可以是任何表达式。在进行具体运算时，需要确保使用正确的括号来确保运算顺序。例如，如果我们需要计算...
VB的小问题~~~急~~~在线等,高分!!!
private sub command1_click()dim a , b ,t as integer a = int(val(text1.text))b = int(val(text2.text))start:if a > b then for i = b to a step 1 if i mod 3=0 and i mod 5 =0 then text3.text = i & text3.text end if next i else t = a a = b b...
