vb 程序设计题,求高人帮忙~

来源：百度知道编辑：UC知道时间：2024/05/14 17:11:00

程序设计题.请高人帮忙指点.谢谢

1.读入一幅BMP图像，并进行显示。

2.在文本框中输入一些无序数字，数字之间用空格分开，对这些数字进行排序，并输出结果，数字个数小于20。

3.给出直角三角形的两条直角边，画出这个三角形。

第一个就是属性问题

对像.picture=loadpicture("图片路径")

如：form1.picture=loadpicture("C:\a.bmp")

第二个就是循环对比

首先从文本框里提取出这些数

动态数组定义：

Dim strNum() as string，Num() as Double '这个地方如果你的二十个数都是整数就用long

利用空格分割:

strNum()=split(Text1.text," ")

Dim lngX As Long

lngX = UBound(strNum)

ReDim Num(lngX)

For i = 0 To lngX

Num(i) = Val(strNum(i))

然后就是对比

Dim Temp As Double

For i = 0 To lngX - 1

For j = i + 1 To lngX

If Num(i) > Num(j) Then

Temp = Num(i)

Num(i