shopbop 关税押金:VB中的两位数怎么取十位上的数字?

来源：百度文库编辑：查人人中国名人网时间：2024/04/28 00:08:01

VB中的两位数怎么取十位上的数字?
Dim bb As Single
Dim aa As Integer

bb = InputBox(" 请输入分数")
aa = bb / 10
结果bb=66的时候，aa是7

1、打开VB6.0软件，新建一个标准exe工程；

2、在设计界面上添加两个Label控件、两个Text控件和一个Command控件；

3、各个控件属性按照下图设计，然后双击Command控件，进入代码编辑界面，输入代码如下：

Private Sub Command1_Click()
Dim n As Integer, a As Integer, b As Integer
n = InputBox("请输入一个两位数")
a = n \ 10
b = n Mod 10
Text1.Text = a
Text2.Text = b
End Sub

4、运行工程，单击按钮，输入56，结果如下：

改一下代码：
aa=int(bb/10)

除以10 不就的到了，小学的数学没学好！！！！！！！

VB中的两位数怎么取十位上的数字? 有一个两位数,它的十位上的数字比个位上的数字小3, 一个两位数，个位数字是十位数字的4倍，如果这个数加上5，则个位与十位上的数相同，这个两位数是一个两位数,个位上的数字比十位上的数大3,且个位上的数字与十位上的数字的和为这个两位数的1/4,求此两位数一个两位数，个位上与十位上数字的和为15，若把个位数字与与十位数字对调，所得的新数比原数少27，有一个两位数，他的十位上的数字与个位上的数字的和为6，符合这一条件的两位数有几个？在所有的两位数中，十位数字比个位数字大的两位数有多少个？一个两位数,个位上的数比十位上的数的3倍多2,若把个位数字与十位上的数对换所得新的两位数比一个两位数，个位数字比十位数字的3倍还小3，个位数字与十位数字互换位置后比原数大9，则这个两位数是一个两位数,其值等于各位数字与十位数字积的2倍,其十位数字比个位数字小3,求这个两位数.