首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 四个数已知一个数，求另外三个数。四个数的比是3：10：25：62。
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • juvstable
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    • 揭帖率：
    发表于：2008-03-25 00:15:19 楼主
    四个数已知一个数，求另外三个数。四个数的比是3：10：25：62。数字是随机输入的。
    20  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • juvstable
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 00:15:541楼 得分:0
    求如何用vb实现？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2008-03-25 00:32:032楼 得分:0
    晕
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • smalle
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 08:28:333楼 得分:0
    VBScript code
    
dim x,y
x=100
y=x/3
debug.print x
debug.print x*10
debug.print x*25
debug.print x*62
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • smalle
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 08:29:094楼 得分:0
    VBScript code
    dim x,y
x=100
y=x/3
debug.print x
debug.print y*10
debug.print y*25
debug.print y*62
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zuoxingyu
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 08:36:545楼 得分:0
    引用 4 楼 smalle 的回复:
    VBScript codedim x,y
    x=100
    y=x/3
    debug.print x
    debug.print y*10
    debug.print y*25
    debug.print y*62
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • xtvbl2008
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 08:38:016楼 得分:0
    dim x,y
    x=100
    y=x/3
    debug.print x
    debug.print y*10
    debug.print y*25
    debug.print y*62

    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • xtvbl2008
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 08:41:477楼 得分:0
    哈哈
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • juvstable
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 10:19:118楼 得分:0
    其实就是四个数已知一个数，在另外三个text里显示另外三个数。数是随机输入的。四个数的比是3 10 25 62。总共四个text。请问该如何实现呢？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • dogfish
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 10:37:529楼 得分:0
    VBScript code
    
'3£º10£º25£º62
Private Sub Text1_lostFocus()
    a = Trim(Text1.Text)
    If IsNumeric(a) Then
        Text2.Text = 10 * a / 3
        Text3.Text = 25 * a / 3
        Text4.Text = 62 * a / 3
    End If
End Sub

Private Sub Text2_lostFocus()
    a = Trim(Text2.Text)
    If IsNumeric(a) Then
        Text1.Text = 3 * a / 10
        Text3.Text = 25 * a / 10
        Text4.Text = 62 * a / 10
    End If
End Sub

Private Sub Text3_lostFocus()
    a = Trim(Text3.Text)
    If IsNumeric(a) Then
        Text1.Text = 3 * a / 25
        Text2.Text = 10 * a / 25
        Text4.Text = 62 * a / 25
    End If
End Sub
Private Sub Text4_lostFocus()
    a = Trim(Text4.Text)
    If IsNumeric(a) Then
        Text1.Text = 3 * a / 62
        Text2.Text = 10 * a / 62
        Text3.Text = 25 * a / 62
    End If
End Sub
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • bb317020935
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-03-25 11:07:1110楼 得分:0
    首先设计好自己所要设计的每一个CommandButton和TextBox的功能和运行时候所显示出来的效果能不能体现出你所想要的结果,然后再写入代码,运行!
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • myjian
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2008-03-25 13:58:1411楼 得分:0
    再晕一次路过......
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • starair
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-14 14:37:1912楼 得分:0
    太高深了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jennyvenus
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 3

      5

      5
    发表于：2008-07-15 08:58:3913楼 得分:0
    引用 12 楼 starair 的回复:
    太高深了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • matter2000
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-15 15:17:3114楼 得分:0
    Private Sub cmd1_click()
        a = Trim(Text1.Text)
        If text1.text <>"" Then
            Text2.Text = 10 * a / 3
            Text3.Text = 25 * a / 3
            Text4.Text = 62 * a / 3
        end If

        If text2.text <>"" Then
            Text1.Text = 3 * a / 10
            Text3.Text = 25 * a / 10
            Text4.Text = 62 * a / 10
        End If

        If text3.text <> "" Then
            Text1.Text = 3 * a / 25
            Text2.Text = 10 * a / 25
            Text4.Text = 62 * a / 25
        End If

        If text4.text <> "" Then
            Text1.Text = 3 * a / 62
            Text2.Text = 10 * a / 62
            Text3.Text = 25 * a / 62
        End If
    End Sub


    做控件的时候4个text的text属性记得写成空 或者再做个清空按钮
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzyong00
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2008-07-15 16:37:1615楼 得分:0
    引用 13 楼 jennyvenus 的回复:
    引用 12 楼 starair 的回复:
    太高深了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • liulhack
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-15 16:53:3316楼 得分:0
    这么低级的问题
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • SilenceNet
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-15 21:38:1317楼 得分:0


    -_-!

    不会。。路过。。。。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • ayalicer
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-15 23:21:5018楼 得分:0
    明显是小学数学没学好~
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved