精华内容
下载资源
问答
  • 实验名称:VB中数字的交换 启动电脑桌面上的VB软件。 在工具箱窗口找到command button的图标,单击图标...在窗体中双击“交换”,并在弹出对话框中输入 Cls Dim b As Integer, c As Integer Dim d As Integ

    实验名称:VB中数字的交换


    1. 启动电脑桌面上的VB软件。

    2. 在工具箱窗口找到command button的图标,单击图标并在窗体的适当位置创建,在属性窗口中找到caption并把其后面改为“交换”。

    3. 在窗体中双击“交换”,并在弹出的对话框中输入

      Cls

      Dim b As Integer, c As Integer

      Dim d As Integer

      c = Int(Rnd() * 1000)

      b = Int(Rnd() * 1000)

      Print "b" & b

      Print "c" & c

      d = c

      c = b

      b = d

      Print "b" & b

      Print "c" & c

    4. 在工具栏中单击“启动”即可出现效果

      2016 15电气郄慧敏15050341023
    展开全文
  • 程序实现功能:当用户单击”输入身份证号”按钮时,弹出输入对话框,用户输入身份证信息后,从身份证号中提取个人相关信息并显示在窗体上。程序实现过程分析:1、单击“输入身份证号”按钮,使用InputBox函数弹出...

    今天我们共同来看一下用VB编写的实用小工具--身份证自动提取性别、年龄、出生日期等个人信息的软件。

    身份证是我们每个公民都有的,根据它可以唯一识别出具体是某个人。

    程序实现功能:

    当用户单击输入身份证号按钮时,弹出输入对话框,用户输入身份证信息后,从身份证号中提取个人相关信息并显示在窗体上。

    程序实现过程分析:

    1、单击“输入身份证号”按钮,使用InputBox函数弹出以下对话框:

    身份证号=InputBox(对话框提示信息,标题,默认值)

    6ab9b960ffe7d84792a38316db6e1639.png

    当用户选择InputBox 的“确定”按钮时,执行身份证号判断操作。

    具体判断过程如下:

    当用户输入的身份证号不足18位时,使用Msgbox函数,做出以下提示

    cf59e030f4495786a753a5cd4293291b.png

    应用技巧:

    1)检测身份证号长度使用Len()函数;2)使用If选择结构判断身份证号是否正确:   if  身份证号不足18 then     msgbox给出提示    else  在指定控件显示出生年月、性别以及年龄End If

    3、当信息录入正确时,在指定控件显示出生年月、性别以及年龄。

    1) 在名为shengri的文本框中显示出生年月,出生年月为身份证号的第7-14

    提示:使用mid函数

    2)在名为nianling的文本框中显示年龄

    提示:使用year(now())获得系统日期的年份,使用mid函数获取身份证中年份信息,相减可得年龄。

    3)在名为xingbie的文本框中显示性别:身份证的第17位为偶数则为“女”,奇数为“男”。

    提示:提取身份证第17位,放入整型变量x中,判断x的奇偶性(x mod 2=0  x为偶数,否则为奇数),由此可以决定性别

    4、保存工程文件和窗体文件

    窗体界面设计

    99a5c41cbf98c6fbdc094457d859bfdf.png

    e4b477263cf6b32e5f271e3d2f9098fd.png

    031a52c4e523f918f152bb43fd3ec8ed.png

    代码实现

    031a52c4e523f918f152bb43fd3ec8ed.png

    Private Sub Command1_Click() '输入身份证号

    Dim sfzh As String   '定义身份证号为字符类型,位数大,且最后一位存在X

    sfzh = InputBox("请输入18位身份证号", "身份证提取程序")  '输入对话框使用

    If Len(sfzh) < 18 Then

    MsgBox "身份证号输入错误,请重新输入!", vbOKOnly, "错误提醒"

    Else

    id = sfzh   '身份证号

    tiqu (sfzh)    '调用自定义tiqu过程

    End If

    End Sub

    Public Sub tiqu(sfzh As String)   '自定义过程

    Dim x As Integer

    shengri = Mid(sfzh, 7, 8)     ‘生日’

    nianling = Year(Now()) - Mid(sfzh, 7, 4)   '年龄

    x = Val(Mid(sfzh, 17, 1))

    If x Mod 2 = 0 Then

    xingbie = "女"

    Else

    xingbie = "男"     '性别

    End If

    End Sub

    实际运行图

    1b420db36487d33581808401660e5330.pngf19f70891a8b7fc530831c31fc508ac5.giff19f70891a8b7fc530831c31fc508ac5.gif0c545b8b35b861f654ccc2fde2f0140b.png15379882ceadb3ee30a5b7bc970aba8b.gif

    大家在学习VB中有不懂之处或者需要VB视频学习资料,可以长按下图添加学习小编微信,更多VB精彩编程内容,尽在跟我学VB。

    2af1a6b9613299d5c6f7b1a9631c5c63.png

    展开全文
  • 实验名称:在VB中制作计时器 ...在窗体中双击计时器图标,在弹出对话框中输入“屏幕1.caption=time(  )”然后关闭窗口。 选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000。

    实验名称:在VB中制作计时器

    实验步骤:

    1. 在桌面中双击VB6.0打开程序。

    2. 在工具箱窗口找到计时器timer的图标,单击图标并在窗体中创建计时器。

    3. 在窗体中双击计时器图标,在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。

    4. 选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000

    5. 在工具箱窗口找到Label,单击图标并在窗体中创建,在属性窗口中找到“名称”一栏并将后面改为“屏幕1”。在工具栏中单击“启动”即可出现效果。

    6. 在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“停止”。

    7. 在窗体中找到“停止”并双击,输入“me.timer1.Enable=False”,然后关闭窗口。在工具栏中单击“启动”即可出现效果。

    8. 在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“重新开始”。

    9. 在窗体中找到“重新开始”并双击,输入“me.timer1.Enable=Ture”,然后关闭窗口。

    10. 在工具栏中单击“启动”即可出现效果。

    11. 15050341023 物电学院 电气工程及其自动化一班郄慧敏

    展开全文
  • 实验名称:在VB中制作计时器 ...在窗体中双击计时器图标,在弹出对话框中输入“屏幕1.caption=time(  )”然后关闭窗口。 选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000。 在
                                   实验名称:在VB中制作计时器
    

    实验步骤:

    1. 在桌面中双击VB6.0打开程序。

    2. 在工具箱窗口找到计时器timer的图标,单击图标并在窗体中创建计时器。

    3. 在窗体中双击计时器图标,在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。

    4. 选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000

    5. 在工具箱窗口找到Label,单击图标并在窗体中创建,在属性窗口中找到“名称”一栏并将后面改为“屏幕1”。在工具栏中单击“启动”即可出现效果。

    6. 在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“停止”。

    7. 在窗体中找到“停止”并双击,输入“me.timer1.Enable=False”,然后关闭窗口。在工具栏中单击“启动”即可出现效果。

    8. 在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“重新开始”。

    9. 在窗体中找到“重新开始”并双击,输入“me.timer1.Enable=Ture”,然后关闭窗口。

    10. form1的空白处双击,在弹出的对话框中Form_Load()下输入Me.Timer1.Enabled = False

    11. 在工具栏中单击“启动”即可出现效果。

    展开全文
  • 程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:①设置适当属性,使对话框的标题为”打开文件”;②设置适当属性,使对话框的”文件类型”下拉式组合框中有两项可供选择:”...
  • VB编程常见问题

    2014-02-12 15:57:56
    单击工程(Project)选单项,在弹出的下拉选单中单击组件(Components)选单项,从弹出对话框中选择Microsoft Rich Textbox Control 5.0复选框,确定加载RichTextBox控件。  新建(New)一个工程,在窗体(Form...
  • 实验步骤: 在桌面中双击VB6.0打开程序 在工具箱窗口找到command的图标,单击图标并在窗体中适当位置创建并在属性窗口中...在窗体中双击command图标,并在弹出对话框中输入代码。 代码如下: Dim a As Inte
  • 实验名称:VB中数字的交换 启动VB软件 在工具箱窗口找到command button的图标,单击图标并在窗体...在窗体中双击“交换”,并在弹出对话框中输入 Cls Dim b As Integer, c As Integer Dim d As Integer c
  • 实验名称:在VB中三个数的排序 在桌面中双击VB6.0打开程序 在工具箱窗口找到command的图标,单击...在窗体中双击command图标,并在弹出对话框中输入代码。 代码如下: Dim a As Integer Dim b As Integer
  • 实验名称:在VB中制作计时器 实验步骤: ...在窗体中双击计时器图标,在弹出对话框中输入“屏幕1.caption=time(  )”然后关闭窗口。 选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000
  • 实验名称:在VB中制作计时器(运行时时间是停止的) ...在窗体中双击计时器图标,在弹出对话框中输入“屏幕1.caption=time(  )”然后关闭窗口。 选定计时器timer,在属性窗口中找到interval并将
  • 一套专业的VB专业管理系统-包含源代码,使用说明: 1.软件所涉及的数据库分为四张表。 lesson kecheng zhuanye ...10.单击“软件简介”弹出窗体单击“关于我们”弹出和程序相关信息的窗体
  • 步骤: 1. 用鼠标左键双击运行桌面上的Microsoft Visual Basic 6.0 ...3. 在窗体中双击计时器图标,在弹出对话框中输入以下内容: “屏幕1.Caption=time()”然后关闭该对话框;然后单击计时器图标,将Inte
  • vb.net 停靠窗口学习笔记(转) 今天初次接触WeifenLuo.WinForms...2、在工具箱上单击右键,选择“选择项”,在弹出对话框中选择“浏览”按钮,定位到WeifenLuo.WinFormsUI.Docking.dll的目录 3、将窗体(form1)的属
  • vb.6.0做的记事本

    2011-05-17 22:50:13
    单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们,单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。...
  • 一套专业的VB专业管理系统-包含源代码,使用说明:  1.软件所涉及的数据库分为四张表。  lesson  kecheng  zhuanye ...单击“软件简介”弹出窗体单击“关于我们”弹出和程序相关信息的窗体
  • 当点击标题为“窗体2”的子菜单项时,弹出Form2窗体;当点击标题为“结束”的子菜单项时,结束程序的运行并退出;当在Forml窗体的列表框和框架内选定了相应的项后,单击“OK”按钮,在文本框内分行显示当前所选择的...
  • VB控件属性使用大全

    2011-12-15 12:02:34
    (1)在菜单里选择“工程-部件”,弹出“部件”对话框; (2)在对话框中选择“控件”选项卡,显示ActiveX控件列表; (3)在列表框中找到需要添加的控件名称,单击控件名称左侧的复选框; (4)使用同样的方法选择需要...
  • 当我们在“窗体设计”区域中双击鼠标后就会弹出代码编辑窗口,也可以通过选择“视图”菜单中的“代码窗口”命令弹出代码编辑窗口以进行程序代码的编写。 在代码编辑窗口的左下角有两个按钮,其作用是设置查看代码的...
  • 用户在工程中运行程序时,如出现图1所示的错误,单击“确定”按钮,弹出“引用”对话框,如图2所示。 产生这种错误的原因是因为系统安装的Word版本不同产生的,用户在工程中运行程序时,应根据本机上安装的Word版本...
  • 用户在工程中运行程序时,如出现图1所示的错误,单击“确定”按钮,弹出“引用”对话框,如图2所示。 产生这种错误的原因是因为系统安装的Word版本不同产生的,用户在工程中运行程序时,应根据本机上安装的Word版本...
  • 对于随机数ab的比较

    2016-06-16 17:41:29
    在桌面中双击VB6.0打开程序 在工具箱窗口找到command的图标,单击图标并在窗体中适当位置创建并在属性...在窗体中双击command图标,并在弹出对话框中输入代码。 代码如下: Dim a As Integer Dim b As
  • 15050341031

    2016-03-31 16:31:29
    实验名称:在VB中三个数的排序 在桌面中双击VB6.0打开程序 ...在工具箱窗口找到...在窗体中双击command图标,并在弹出对话框中输入代码。 代码如下: Dim a As Integer Dim b As Integer Dim
  • 实验名称:15个数排序 实验步骤 在桌面中双击VB6.0打开程序 在工具箱窗口找到command的图标,单击图标...在窗体中双击command图标,并在弹出对话框中输入代码 代码如下: Dim a As Integer Dim b As Intege
  • Delphi,是Windows平台下著名的... 想使Object Inspector一直可见,可将鼠标移到Object Inspector上,按动右键,以启动Object Inspector的弹出式菜单,将其设置为Stay On Top。这对初学者常是一个很重要的设置方式。
  • vc++ 应用源码包_2

    2012-09-15 14:27:40
    所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG...
  • vc++ 应用源码包_6

    2012-09-15 14:59:46
    所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG...

空空如也

空空如也

1 2
收藏数 39
精华内容 15
关键字:

vb单击窗体弹出对话框