当前位置:编程学习 > VB >>

我想知道这两题怎么用VB编程,能帮忙吗?

第一题:编写一个函数过程ATOR(),能将弧度值参数转换为度、分、秒的角度值,并返回角度值;
第二题产生20个2位的随机偶数,将它们显示出来,然后将它们按从大到小的顺序排列显示排列后的结果,同时显示出它们未排列前的序号!
答案:
第一题,弧度转换为角度直接用弧度*180/3.1415926就可以了.如果要得到角度分,结果只能返回字符串类型,编写难度应该不大.
第二题参考答案:
Dim i As Integer, a(20) As Integer, b(20) As Integer, t As Integer
Randomize
For i = 1 To 20  '生成数据
a(i) = 2 * Int(Rnd * 50)
b(i) = i
Print a(i);
If i Mod 5 = 0 Then Print
Next i
For i = 20 To 1 Step -1  '排序
For j = 1 To i - 1
If a(j) < a(j + 1) Then
t = b(j)
b(j) = b(j + 1)
b(j + 1) = t
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
For i = 1 To 20 '输出结果
Print b(i), a(i)
Next i
写出来很麻烦,其实把基本的编程灵活的镶套,什么编程都难不倒人,总之还是靠自己。提示下:
第一题:用VB的一个内部函数就很容易搞定。
第二题:用VB的产生随机数函数X100后取整,并用20个字母赋值,再输出,然后用冒泡法把这20个数顺序排一排就OK(建议用子函数)

上一个:vb编程求出数组中任两个元素的差绝对值并输出到数组保存
下一个:vb编程 问题 求1到100 之间的质数 要求在写入到一个txt文本文件

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,