VB求助,求高手帮忙解答,解答部分已经注明。

Dim a As Single '变量a,还是数组变量a(10) (解答)
Dim v As String
Private Sub Form_Load()
For i = 1 To 10 '循环10次,输入10次数据 (解答)
v = InputBox("输入数据") '通过inputbox输入对话框,输入数据,存放在V中 (解答)
If v = "" Then Exit Sub
If IsNumeric(v) Then '对V进行判断 判断是否V是数字 (解答)
a(i) = v '每次输入的数据,分别存放在a(1)、a(2)、、、a(10)中 (解答)
Else
MsgBox ("请输入正确内容")
End If
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 10
For j = i To 10
If a(i) > a(j) Then 'a(i)和后面的元素进行比较,如果a(i)大于后面的元素 (解答)
t = a(i): a(j) = a(i): a(j) = t '则交换a(i)和a(j)的值 (解答)
End If
Next j
Next i
For i = 1 To 10
Picture1.Print a '数组元素按从小到大顺序排序之后,输出 (解答)
Next i
End Sub

Private Sub Picture1_Click()

End Sub

我就按顺序解答吧:
1、这里是变量a,不是数组。但根据后面的程序来看,这里应该是数组定义,应该是a(10)括号里的数大于10即可。
2、没错,是循环10次,输入10次
3、对啊,没错。输入的内容存入v中
4、这个IsNumeric函数就是判断是否为数字的
5、是的,但只有当v为数字时才会存入a()中
6、这里不仅仅是跟后面的比,而是和所有其他成员对比,这是最简单的排序法
7、没错,交换值。
8、排序后,数组中的数从小到大排列,依次输出。
不知道你是否是要这样的回答?只能猜测你的想法了。
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-06-16
同学,我不大明白你的问题。可以问一下,要解答什么问吗?
第2个回答  2012-06-20
我也没看明白需要解答什么

VB求助,求高手帮忙解答,解答部分已经注明。
1、这里是变量a,不是数组。但根据后面的程序来看,这里应该是数组定义,应该是a(10)括号里的数大于10即可。2、没错,是循环10次,输入10次 3、对啊,没错。输入的内容存入v中 4、这个IsNumeric函数就是判断是否为数字的 5、是的,但只有当v为数字时才会存入a()中 6、这里不仅仅是跟后面的...

请VB高手帮忙解决一下问题,要具体一点的分析过程哦,谢谢了! 阅读下列...
第一个问题:Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)这个事件是窗体自带的事件,鼠标在窗体上移动就会被触发。事件中Button 是表示,移动鼠标时你按下了鼠标的哪个键 不按鼠标 Button =0 按鼠标左键 Button =1 按鼠标右键 Button =2 同...

vb 各位高手帮忙解决一下,急!!!
Private Sub Command1_Click()a = fac(10)b = fac(6)c = fac(4)Print "a\/(b*c)"; a \/ (b * c)End Sub Public Function fac(n As Long) As Long If n = 1 Then fac = 1 Else fac = n * fac(n - 1)End If End Function 溢出就是变量的值超过或和变量的类型不一致 ...

VB题,高手来帮帮忙,感激不尽!求解释下代码和答案!谢谢!好人好报...
1. rnd 随机生成一个0到1的数,int 取整 int(rnd)+3的值肯定及小于10了 2. 字符串的比较,首先左对齐,然后依次比较,第一位与第一位比较...比较的是ascii码, B的是65, b的是98 3.定义了一个函数,这个函数的功能是:如果是偶数,值就不变,如果是奇数,值就变成1 然后依次...

VB题,求高手解答代码意思,尤其是20题!红色是答案,各种感谢!!好人好...
第20题:for i=0 to 5\\2,这里5\\2是取整数商的除法结果是2,这句就是for i=0 to 2 tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmp 实现元素交换,i=0时,元素b(0)与b(4)交换,i=1时,元素b(1)与b(3)交换,i=2j时,b(2)与b(2)交换.到此交换操作完毕.实现了元素的倒序.第21题....

请求VB高手帮忙,谢谢!
'高手'恐怕回答不了,需要'老师'来回答,你须照背'标准答案'。第1题:说的就是它;第2题:没有指定VB的具体版本,一般至少由3个*.frm文件,1个*.vbp文件组成,共(4)个文件;第3题:一种在(属性栏)设置,另一种是(代码中)设置;但也可以写成:一种在(设计时)设置,另一种是(运行...

一个VB的常识,求高手解答
先打开第一个工程,然后点菜单“文件”-“添加工程”,选择第二个工程打开,同理添加第三个工程,这样工程资源管理器窗口就会三个工程并列了。最后再点菜单“文件”-“保存工程组”,以后只要点击这个生成的工程组文件,那么这三个工程就同时打开了。

VB程序编写,求高手帮忙(数据压缩)列如输入100011111,输出11#03#15#
1、n=0;2、n=n+1;3、j=j+1;4、i=i+n;

vb中的程序难题,拜求高手帮忙解决!
vb中的程序难题,拜求高手帮忙解决! 用VB写程序时,能不能从excal文件中读出数据,并能像EXCAL那样绘出一条曲线来,曲线希望Y轴是excal文件里得C列的数据,X轴希望是B列的数据乘上某个数,就相当与EXCAL文件的每行数据代... 用VB写程序时,能不能从excal文件中读出数据,并能像EXCAL那样绘出一条曲线来,曲线希望...

vb程序设计题,请高手解答
Vb程序代码如下:Private Sub Form_Click()Dim a '定义了一个可变类型的数组 a = Array(1, 3, 5, 7, 9, 11)Dim b b = Array(2, 4, 6, 8, 10, 12, 14, 16, 18)Dim c(1000)pa = 0: pb = 0: pc = 0 ea = UBound(a) '可变数组A的下标的上界和下界可以用函数UBO...

相似回答
大家正在搜