有VB的高手吗？

terminamor

这个有谁会啊！我做了半天也想不出来。

terminamor

顶有下

阿博

CXJ_2000、游牧人应该会的。

frank

就一个图阿，这怎么回答，问题呢？进制转换？

terminamor

就是进制转换．怎么写程序，不知道．

terminamor

就是怎么让这个程序运行起来．各控件的程序不知道怎么写．谢谢先

frank

偶不怎么用VB，就在VS.net上给你稍稍画一下吧。

方案一：
用RadioButton组1设置好原数的进制，（在textbox1中输入时，可以进行判断屏蔽错误的输入。）

用RadioButton组2设置好将要转换成几进制的数，然后在 Button1 的 Click事件里编辑转换算法就可以了（应该有限在转换函数，你查查msdn吧）。然后将结果赋值给textbox2。

frank

方案二，参照windows自带的计算器，具体的就不说了

IBM_T22

我是在VB.NET下编的，供参考。

Public Class Form1
    Inherits System.Windows.Forms.Form


    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label2.Text = "十六进制"
        TextBox2.Text = Format(CLng(TextBox1.Text), "x")

    End Sub
    Sub ToN(ByVal n As Integer)
        Dim s As Long
        Dim t As String = ""
        s = CLng(TextBox1.Text)
        Do While s >= n
            t = (s Mod n) & t
            s = (s - s Mod n) / n


        Loop
        TextBox2.Text = s & t
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        ToN(8)
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        ToN(2)
    End Sub
End Class

terminamor

谢谢大家的帮助。严重感谢！！

terminamor

试了一下，好象不行，能再帮我一下吗？ＶＢ．ＮＥＴ好象和ＶＢ不同

knightmx

QUOTE:

Originally posted by terminamor at 2003-11-30 08:03 PM:
试了一下，好象不行，能再帮我一下吗？ＶＢ．ＮＥＴ好象和ＶＢ不同

当然不一样拉

IBM_T22

Function ToN(ByVal X as Long,ByVal n As Integer) As String
        Dim t as String
        t=""
        Do While X >= n
            t = (X Mod n) & t
            X = (X - X Mod n) / n
        Loop
        ToN= X & t
End Function
说明：X为欲转换的数，n为进制（n=2，8；若n>9，应对 X Mod n 进行判断，即若X Mod n=10，11，12，13，14，15，则相应转换为"A"，"B","C","D","E","F") 。
例：ToN(101,8)="145"

zizi

sign
上个学期学的
好像差不多忘光了
郁闷亚

terminamor

我是选修的.第一题，关于SHAPE形状转变的，做出来了，这个怎么也做不出来。现在得到大家的帮助，才完成，谢谢大家了！专门网真好！

老虎

那不就是windows计算器的功能么？