| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 402 人关注过本帖
标题:我的if有用错了吗,实现不到十进制转八进制的转换
只看楼主 加入收藏
ych1113
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-11-10
收藏
 问题点数:0 回复次数:0 
我的if有用错了吗,实现不到十进制转八进制的转换

Private Sub Command1_Click()
Dim a As Integer
Text2.Text = ""
a = Val(Text1.Text)
If Combo1.Text = "十进制转换二进制" Then
Do
Text2.Text = Trim(Str(a Mod 2)) + Text2.Text
a = Int(a / 2)
Loop Until a = 0
ElseIf Combo1.Text = "十进制转换八进制" Then
Do
Text2.Text = Oct(Trim(Str(a Mod 8))) + Text2.Text
a = Int(a / 8)
Loop Until a = 0
Else
Do
Text2.Text = Hex(Trim(Str(a Mod 16))) + Text2.Text
a = Int(a / 16)
Loop Until a = 0
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "十进制转换二进制"
.AddItem "十进制转换八进制"
.AddItem "十进制转换十六进制"
End With
End Sub

2007-11-10 23:51
快速回复:我的if有用错了吗,实现不到十进制转八进制的转换
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025896 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved