微机作业：VB （数值转换）的代码！！用TEXBOX 1个 3个TEXT

提供给你一些函数，剩下的你可以做的

Function twototen(ByVal Atxt As String) '二进制转十进制（函数），完成

Dim i, f As Long '循环变量

Dim sums As Long '总值变量

f = Len(Atxt)

For i = f - 1 To 0 Step -1

sums = sums + Val(Mid(Atxt, f - i, 1)) 2 ^ i

Next i

twototen = sums

End Function

Function tentotwo(ByVal Btxt As String) '十进制转二进制（函数）完成

Dim s As String

Dim nums As Long

nums = Val(Btxt)

s = ""

Do While nums > 0

s = nums Mod 2 & s

nums = nums \ 2

Loop

tentotwo = s

End Function

Function HEX_to_DEC(ByVal Hex As String) As Long

Dim i As Long

Dim sums As Long

Hex = UCase(Hex)

For i = 1 To Len(Hex)

Select Case Mid(Hex, Len(Hex) - i + 1, 1)

Case "0": sums = sums + 16 ^ (i - 1) 0

Case "1": sums = sums + 16 ^ (i - 1) 1

Case "2": sums = sums + 16 ^ (i - 1) 2

Case "3": sums = sums + 16 ^ (i - 1) 3

Case "4": sums = sums + 16 ^ (i - 1) 4

Case "5": sums = sums + 16 ^ (i - 1) 5

Case "6": sums = sums + 16 ^ (i - 1) 6

Case "7": sums = sums + 16 ^ (i - 1) 7

Case "8": sums = sums + 16 ^ (i - 1) 8

Case "9": sums = sums + 16 ^ (i - 1) 9

Case "A": sums = sums + 16 ^ (i - 1) 10

Case "B": sums = sums + 16 ^ (i - 1) 11

Case "C": sums = sums + 16 ^ (i - 1) 12

Case "D": sums = sums + 16 ^ (i - 1) 13

Case "E": sums = sums + 16 ^ (i - 1) 14

Case "F": sums = sums + 16 ^ (i - 1) 15

End Select

Next i

HEX_to_DEC = sums

End Function

Function EtoT(ByVal etxt As String)

Dim i, f As Long '循环变量

Dim sums As Long '总值变量

f = Len(etxt)

For i = f - 1 To 0 Step -1

sums = sums + Val(Mid(etxt, f - i, 1)) 8 ^ i

Next i

EtoT = sums

End Function

可以通过事件 来获得的。

你双击 comboxbox 会d出一个 SelectedIndexChanged 事件 (当框内容发生改变就触发的）

事先定义一个全局变量（下面是我随便举的例子）

public string m_comboxBOX;

下面这个就是活的内容的了、

private void comboxBOX_SelectedIndexChanged(object sender, EventArgs e)

{

m_comboxBOX = comboxBOXText;

}

希望能帮助到你吧

详细定义每一个文本框的 TabIndex 属性值，让它们按照你的要求顺序递增就行。

比如，若 日期对应的文本框的 TabIndex = 10，那么你可以手动调整 姓名 对应文本框的 TabIndex = 11，年龄 对应文本框的 TabIndex = 12，电话 对应文本框的 TabIndex = 13，HK 对应文本框的 TabIndex = 14 ……

依次类推

用textbox的keydown事件，具体代码如下：

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSFormsReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Then

TextBox4SetFocus

End If

End Sub

需要给每一个textbox都补充上该事件代码，并指定下一个textbox

望采纳！

不明白你的以上！！！textbox是变量吗 ？？

textbox如果是数字字符的话你可以用cint(textbox)来转换它！在进行计算！

如：textbox=cint(textbox)5 这样就可以了！

如果你不知道textbox是否是数字字符的话 就要用函数先判断下在textbox它数否能转换为数字！在进行计算！！！用isnumeric()函数来判断！！

IsNumeric 函数

返回 Boolean 值指明表达式的值是否为数字。

IsNumeric(expression)

expression 参数可以是任意表达式。

说明

如果整个 expression 被识别为数字，IsNumeric 函数返回 True；否则函数返回 False。如果 expression 是日期表达式，IsNumeric 函数返回 False。

下面的示例利用 IsNumeric 函数决定变量是否可以作为数值：

Dim MyVar, MyCheck

MyVar = 53 '赋值。

MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "45995" ' 赋值。

MyCheck = IsNumeric(MyVar) ' 返回True。

MyVar = "45 Help" ' 赋值。

MyCheck = IsNumeric(MyVar) ' 返回 False。

Form2加几个Public的属性,把这一行的每一列的值传过去,texbox的值设为这写Public的属性

假设Form2有个确定按钮,按下后,再把Public的属性替换为texbox的值

在show之后再把Public的属性拿过来,更新,ok!

以上就是关于微机作业：VB （数值转换）的代码！！用TEXBOX 1个 3个TEXT全部的内容，包括:微机作业：VB （数值转换）的代码！！用TEXBOX 1个 3个TEXT、C# 如何获取comboxBox中的Text值、ActIvex,Texbox(文本框)里输入完数据后,按回车键后就能定位在一下个Texbox里,怎么实现等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！