VB学习第四周续--四位整数逆序

四位整数逆序：

Public Class Form1Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPressDim n, a, b, c, d, m As IntegerIf Asc(e.KeyChar) = 13 Thenn = Val(TextBox1.Text)a = n Mod 10 '个位b = n \ 10 Mod 10 '十位c = n \ 100 Mod 10 '百位d = n \ 1000m = a * 1000 + b * 100 + c * 10 + dLabel2.Text = "逆序后整数为：" & mEnd IfEnd SubPrivate Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedIf Not IsNumeric(TextBox1.Text) ThenMsgBox("输入有非数字字符,请重新输入", , "数据检验")TextBox1.Text = ""TextBox1.Focus()End IfEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd Sub
End Class

VB学习第四周续--四位整数逆序相关推荐

C语言基础02——控制语句。二分查找、随机数讲解、求自幂数、整数逆序、X图案打印、猜数字、公约数公倍数、素数
目录分支语句(选择结构) if语句 switch语句循环语句 while循环 do-while循环 for循环循环语句的练习转向语句 goto语句 break语句 continue语句 ret ...
调用函数，整数逆序输出
Description 自定义函数reverse(number),它的功能是返回number的逆序数,如reverse(123)的返回值是321. 主函数中,输入一个任意整数,调用reverse函数, ...
写一个函数，输入int型，返回整数逆序后的字符串
2019独角兽企业重金招聘Python工程师标准>>> 刚刚看到一个面试题:写一个函数,输入int型,返回整数逆序后的字符串.如:输入123,返回"321". 要 ...
I00028 整数逆序
把一个整数逆序输出有两种办法. 1.使用字符串处理,先将整数转换为字符串,然后将字符串逆序.可以使用I/O函数,将整数值输出到字符串数组中,即转换为字符串,然后再对字符串的前后字符进行对换即可. 2. ...
C语言例题理解（小写字母转换成大写字母，兔子生兔子问题，求100以内勾股数，整数逆序输出）
例一(小写字母转换成大写字母) #include <stdio.h> int main() {char x,y;printf("输入一个小写字母:\n");x=getc ...
将一个整数逆序输出-上海大学题库
将一个整数逆序输出 [问题描述]输入一个整数,将其逆序输出.要求在主函数中输入整数,编写一个递归函数实现将该整数逆序输出.例如在主函数中输入123456,则在输出654321. [输入形式]从键盘输入 ...
用java将输入的整数逆序输出_输入一个整数判断这个整数是几位数，并把这个整数逆序输出！ | 学步园...
import java.util.Scanner; /** * * 问题:输入一个整数判断这个整数是几位数,并把这个整数逆序输出! * * @author Administrator * * 程序如下 ...
java递归整数逆序,将一个整数逆序输出，分别给出递归和非递归算法 | 学步园...
整数的逆序输出,递归 #include "stdafx.h" #include using namespace std; void reverse (int x){ int t_r ...
python将整数逆序_python练手入门小项目：字符串的妙用
题目来源:小行:python练手入门小项目详解(一) 1 给任意一个的正整数,要求:一.求它是几位数,二.逆序打印出各位数字. 代码: def reversed_integer(number):ass ...

VB学习第四周续--四位整数逆序

VB学习第四周续--四位整数逆序相关推荐

最新文章

热门文章