vb高手帮帮忙!!!急用……谢谢谢^……

来源：百度知道 编辑：UC知道 时间：2024/06/28 21:45:43
第一题
设计一个算法能够实现二进制转换为十进制
（在文本框中输入二进制数据，如有0和1以外的其他数据，提示错误）
第二题
设计一个算法找出1到N之间所有水仙花数
(水仙花数是一个三位数,其各个数之立方和等于该数)
第三题
用冒泡排序法设计一个程序实现对输入的若干数据进行排序
(每输入一个数据用回车表示)
第4题
设整数数组a 和b中各存了若干个数据(最多50个)且a和b中的所有数据都各不相同,设计一个算法,把a和b中的所有数据存到数组c中,c中仍按递增排列
第5题
设计一个程序,输入"年、月、日"与1900年1月1日比较，输出着一天是星期几
(默认1900年1月1日为星期一)

第一题：
Private Sub Command1_Click()
Dim Bin, Deg As String
Dim l As Integer
Deg = 0
Bin = Text1.Text
l = Len(Bin)
For i = 1 To l
Deg = Deg + Val(Mid(Bin, l + 1 - i, 1)) * 2 ^ (i - 1)
Next i
MsgBox "十进制为：" & Deg
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 48 Or KeyAscii = 49) Then KeyAscii = 0
End Sub

第二题：
Private Sub Form_Click()
Dim a, b, c, i As Integer
For i = 100 To 999
a = Val(Mid(Str(i), 1, 1))
b = Val(Mid(Str(i), 2, 1))
c = Val(Mid(Str(i), 3, 1))
If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i
Next i
End Sub

hehe帮做一题性不?
伪带码
高你5题是有指定函数的不用做的你自己查啊
4是把a和b一起放到c中然后随便用个排序方法做就行了
2是
for循环就我用我说了把if判断是
b=a(a是那3个数)%10
c=a%100-b
d=a/100
if a=b^3+c^3+d^3 then
print a
大概就是这样的
3太麻烦了我就、不做了
1是就用转换公式就行了