设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数

Question

如题所述

Answer 1

vb6测试通过。

文本框名称为txtNum，显示信息的标签名称为lbl，按钮的名称为btn。

按钮的click事件代码如下：

Private Sub btn_Click()
Dim num As Integer
If IsNumeric(txtNum.Text) = True Then
    num = CInt(txtNum.Text)
    If num < 100 Or num > 999 Or num <> Val(txtNum.Text) Then
        lbl.Caption = "请输入三位正整数！"
    Else
        lbl.Caption = "百位是" & num \ 100 & "，十位是" & num \ 10 Mod 10 & "，个位是" & num Mod 10 & "。"
    End If
Else
    lbl.Caption = "请输入三位正整数！"
End If
End Sub

Answer 2

//我用java写的，你看下，不懂可以追问哦~

import java.awt.event.ActionEvent;
import java.applet.Applet;

import java.awt.event.ActionListener;
import javax.swing.JButton;
import javax.swing.JLabel;
import javax.swing.JTextField;
public class Test extends Applet implements ActionListener{
 JLabel lb3=new JLabel("输入三位数");
 JTextField edt3=new JTextField(10);
 JLabel lbg=new JLabel("个位");
 JTextField edtg=new JTextField(10);
 JLabel lbs=new JLabel("十位");
 JTextField edts=new JTextField(10);
 JLabel lbb=new JLabel("百位");
 JTextField edtb=new JTextField(10);
 JButton btn = new JButton("click this");
 public void init()
 {
  super.init();
  add(lb3);
  add(edt3);
  add(lbg);
  add(edtg);
  add(lbs);
  add(edts);
  add(lbb);
  add(edtb); 
  add(btn);
  btn.addActionListener(this);
  
 }
 @Override
 public void actionPerformed(ActionEvent e) {
  // TODO Auto-generated method stub
  if (e.getSource()==btn)
  {
   int num=Integer.parseInt(edt3.getText());
   if (num/1000==0&&num/100>0)
   {
    System.out.println(num);
    System.out.println(num%10);
    System.out.println(num/10%10);
    System.out.println(num%100);
    edtg.setText(""+num%10);
    edts.setText(""+num/10%10);
    edtb.setText(""+num/100);
   }
   else
   {
    edt3.setText("错误输入");
   }
  } 
 }
}

本回答被网友采纳

Answer 3

excel都可以实现这个功能

Answer 4

你想用什么做，ASP.NET，还是JSP，还是JavaScript？追问

vb