UC知道求助VB高手!!急哦~~高分悬赏!!
来源：百度知道 编辑：UC知道 时间：2024/05/14 10:13:40
请大家帮帮忙哦,帮我做两道VB题,答案要分开哦..
是关于过程的编程题..
1.编写一Sub过程,该过程能够根据输入的工资总数确定发给多少张面值一百元,五十元,十元,五元,一元,五角,一角,五分,一分的钞票.运行时,在窗体上用文本框输入工资额,按回车键调用Sub过程计算各种面值的钞票各需多少,并将结果显示在窗体上,界面自定(要求Sub过程只负责计算,不负责显示结果).
2.使用过程的递归调用求5000之内斐波那契数列的值.
谢谢啦!!^^
第二题的原题就是这样的,我不知道有什么公式哦..不过,作业要求选两道做,我这里再加一道题,大家帮帮忙,帮我做两道,3选2哦,不过记得标明题号..谢谢啦~~
3.编写一个应用程序,要求具有下列的功能.每一个功能由一个自定义过程来实现:
1)读入一个n个元素的数组;
2)在数组的后面添加一个元素;
3)在数组中第k个元素前插入一个元素;
4)删除数组中的第k个元素;
5)删除数组中的指定值的元素(建议编写一个检索用的Function过程,检索成功时,函数返回值为检索到的元素的下标).
是关于过程的编程题..
1.编写一Sub过程,该过程能够根据输入的工资总数确定发给多少张面值一百元,五十元,十元,五元,一元,五角,一角,五分,一分的钞票.运行时,在窗体上用文本框输入工资额,按回车键调用Sub过程计算各种面值的钞票各需多少,并将结果显示在窗体上,界面自定(要求Sub过程只负责计算,不负责显示结果).
2.使用过程的递归调用求5000之内斐波那契数列的值.
谢谢啦!!^^
第二题的原题就是这样的,我不知道有什么公式哦..不过,作业要求选两道做,我这里再加一道题,大家帮帮忙,帮我做两道,3选2哦,不过记得标明题号..谢谢啦~~
3.编写一个应用程序,要求具有下列的功能.每一个功能由一个自定义过程来实现:
1)读入一个n个元素的数组;
2)在数组的后面添加一个元素;
3)在数组中第k个元素前插入一个元素;
4)删除数组中的第k个元素;
5)删除数组中的指定值的元素(建议编写一个检索用的Function过程,检索成功时,函数返回值为检索到的元素的下标).
第一题
'建立一个text1,
Dim R As Single
Dim S(8) As Integer
Private Sub Form_Load()
Form1.AutoRedraw = True
Text1.Text = 578.62
Form1.Width = 11000
Text1.Top = 1000
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 46, 48 To 57
Case 13
If Text1.Text = "" Then Exit Sub
R = Format(Val(Text1.Text), "0.00")
Call Zh(R)
Print "一百元", "五十元", "十元", "五元", "一元", "五角", "一角", "五分", "一分"
For I = 0 To 8
Print S(I),
Next
Case Else
KeyAscii = ""
End Select
End Sub
Function Zh(ByVal I As Single)
I = I * 100
S(0) = I \ 10000
I = I Mod 10000
S(