VB变量数值交换问题?
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 21:39:31
VB变量数值交换问题?
求教: 一串数值.变量 a 为最大数例如10,变量 b为最小数为 1,变量 d 为结果,还未赋值
c=text1.text ,点击按钮要实现大小交换,例如 变量 c 为1 的时候,则 d 为最大数,例如10,变量 c 为 2 的时候,则 D 为 9,3 则 D为8,直到 1,以此类推,求 VB 代码,谢谢各位大虾.
求教: 一串数值.变量 a 为最大数例如10,变量 b为最小数为 1,变量 d 为结果,还未赋值
c=text1.text ,点击按钮要实现大小交换,例如 变量 c 为1 的时候,则 d 为最大数,例如10,变量 c 为 2 的时候,则 D 为 9,3 则 D为8,直到 1,以此类推,求 VB 代码,谢谢各位大虾.
我再问问清楚你的意图:
有一个数组,存放了一组(n个)大小不相等的数字;
要求:
当text1里:
输入 1,变量D里获得数组中的最大值;
输入 2,变量D里获得数组中的第2大值;
输入 3,变量D里获得数组中的第3大值;
.
输入 n,变量D里获得数组中的最小的值;
再问: 是的大虾,这个数组里面的数值都是连续的,例如 0123456789,望赐教,谢谢。
再答: 而且都是从小到大排好的? 假设数组为 MyArr() 那代码如下: Dim Ln As Integer Dim Un As Integer Dim n As Integer Dim i As Integer Dim d As Integer Un = UBound(MyArr) '获得数组的下标的上界 Ln = LBound(MyArr) '获得数组的下标的下界 n = Val(Text1.Text) If n < Ln Or n > Un Then MsgBox "输入的下标值错误!" Exit Sub End If d = MyArr(Un + Ln - n) Print d
有一个数组,存放了一组(n个)大小不相等的数字;
要求:
当text1里:
输入 1,变量D里获得数组中的最大值;
输入 2,变量D里获得数组中的第2大值;
输入 3,变量D里获得数组中的第3大值;
.
输入 n,变量D里获得数组中的最小的值;
再问: 是的大虾,这个数组里面的数值都是连续的,例如 0123456789,望赐教,谢谢。
再答: 而且都是从小到大排好的? 假设数组为 MyArr() 那代码如下: Dim Ln As Integer Dim Un As Integer Dim n As Integer Dim i As Integer Dim d As Integer Un = UBound(MyArr) '获得数组的下标的上界 Ln = LBound(MyArr) '获得数组的下标的下界 n = Val(Text1.Text) If n < Ln Or n > Un Then MsgBox "输入的下标值错误!" Exit Sub End If d = MyArr(Un + Ln - n) Print d
VB变量数值交换问题?
【VB的使用中间量交换两个变量数值】
VB利用循环交换变量的位置
matlab中对于变量数值定义问题
数值变量的统计分析相关的两个问题
VB表达式x+y=10表示将数值10赋给变量x+y 是否正确
VB两个变量交换要实现变量M的值与变量N的值进行交换,可用语句( )(A)X=M:M=N:N=X (B)M=N:N=M:
VB 题关于常量变量的问题 有米有人会?
C语言,交换两个变量!
VB题 整型变量X中存放了一个两位数,要将两位数交换位置,例如将13变成31,实现的表达式为?
VB中Mod函数问题a是double型变量,a=19.5mod2*2 余数不是3.5么 ,怎么在VB里是0
C语言编程问题(写一个子函数,实现交换两个整型变量X和Y的值)