您的位置：程序门 -> vb ->



一小道考试题


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


一小道考试题[已结贴,结贴人:bulls5988]
发表于：2007-10-18 21:25:20 楼主
从键盘输入10数（inputbox)   在text1里输出负数   计算正数和   与负数和   分别text2和text3里显示
发表于：2007-10-18 23:52:261楼 得分:0
谁接受输入？
text1还是窗口？
发表于：2007-10-19 06:10:052楼 得分:0
inputbox输入..
发表于：2007-10-19 08:48:333楼 得分:20
首先建一个command，名称是command1,然后建三个文本框，分别为text1,text2,text3。然后在command1_click（)事件中写入下面的代码：
        dim   inum（1   to   10)   as   long       '存放数据
       
        dim   i   as   long       '循环数
        dim   s   as   string   '临时字符串
       
        '清空文本框数据
        text1.text   =   ""
        text2.text   =   "0"
        text3.text   =   "0"
       
        for   i   =   1   to   10
                '进行输入
                do
                        s   =   inputbox（"请输入数字",   "输入框",   0)
                loop   while   not   isnumeric（s)
                inum（i)   =   clng（s)
               
                '如果是负数，输出
                if   inum（i)   <   0   then
                        text1.text   =   text1.text   &   "   "   &   inum（i)
                end   if
               
                '计算正数与负数和
                if   inum（i)   <   0   then
                        text2.text   =   clng（text2.text)   +   inum（i)
                else
                        text3.text   =   clng（text3.text)   +   inum（i)
                end   if
        next

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击