vb之作业代码判断数字

猜数字游戏：事先设定的一个数字（如6），程序提示用户输入一个1～10之间的整数，如果输入的数字与事先设置的数字相同，则提示“输入正确”，否则显示“错了

Private Sub Command1_Click()

Randomize

Dim x%, y%

x = 8

y = Int(10 * Rnd + 1)

Text1.Text = y

If x = y Then MsgBox "输入正确"

If x < y Or x > y Then MsgBox "错了"

End Sub

vb代码大全

用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或

VBProject代码操作代码之常用语句

一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub

VB程序代码(简单小程序)

实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If (ProgressBar1.Value + ProgressBar1.Maximum / timers < ProgressBar1.Maximum) Then ProgressBar1.Value += ProgressBar1.Maximum / timers Else Timer1.Enabled = False ProgressBar1.Value = ProgressBar1.Maximum MessageBox.Show("进度完成！") End If temp += 1 Label1.Text = temp.ToString() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load timers = 30 End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub End Class 实验二（定时器控制蝴蝶飞舞） Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3.Image = PictureBox2.Image

vb练习题,电子版第13章多窗体程序设计

第十三章多窗体程序设计 教学要求： 了解多重窗体应用程序的适用范围与特点，掌握多重窗体应用程序建立的主要步骤；了解多重窗体程序的执行与保存特点，了解Visual Basic工程的结构特点（标准模块、窗体模块、Sub Main过程）；掌握闲置循环与DoEvents语句的用法。 知识点： 多重窗体应用程序；多重窗体应用程序的建立、执行、保存；Visual Basic工程的结构特点；闲置循环与DoEvents语句。 内容导航： 一、建立多重窗体应用程序 （一）多重窗体程序设计有关的语句和方法 1．Load语句。格式：Load 窗体名 2．Unload语句。格式：Unload 窗体名 3．Show方法。格式：[窗体名.]Show[模式] 4．Hide方法。格式：[窗体名.]Hide （二）建立界面 窗体的添加方法有如下4种： 方法一：单击“工程”菜单中的“添加窗体”命令； 方法二：用鼠标右键单击“工程资源管理器”的任何项目，在弹出的快捷菜单中选择“添加”，单击“添加窗体”命令； 方法三：单击工具栏中的“添加窗体”命令； 方法四：通过组合键Alt+P，F。 二、多重窗体程序的执行与保存 （一）指定启动窗体 在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来。要改变启动窗体的执行方法如下： 从“工程”菜单中，选取“工程属性”命令，选取“通用”选项卡，在“启动对象”中，选取要作为新启动窗体的窗体，最后单击“确定”按钮。 （二）保存多窗体程序 为了保存多窗体程序，通常需要一下两步： 1．保存模块。 2．保存工程 （三）装入多窗体程序 装入多窗体程序和装入单窗体程序一样，只要打开工程文件，工程中包括的其他文件便会自动装入内存，而不用一一打开。 三、Visual Basic工程结构 Visual Basic工程分为3个层次：工程级（全局）、模块级和过程级，这对变量与类型的定义和使用都是很重要的。

VB程序代码(简单小程序)

实验一:(带有进度条的倒计时程序) Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick If(ProgressBar1、Value + ProgressBar1、Maximum / timers < ProgressBar1、Maximum) Then ProgressBar1、Value += ProgressBar1、Maximum / timers Else Timer1、Enabled = False ProgressBar1、Value = ProgressBar1、Maximum MessageBox、Show("进度完成！") End If temp += 1 Label1、Text = temp、ToString() End Sub Private Sub Form1_Load(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles MyBase、Load timers = 30 End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Timer1、Enabled = True End Sub End Class 实验二(定时器控制蝴蝶飞舞) Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3、Image = PictureBox2、Image ' t = False 'Else ' PictureBox3、Image = PictureBox1、Image ' t = True 'End If Select Case t Case 0 PictureBox3、Image = PictureBox1、Image

VB函数大全_基本函数大全

VB函数大全_基本函数大全 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。 Eval 函数计算并返回表达式的值。 Execute 方法根据指定的字符串，执行正则表达式的搜索。 Execute 语句执行单个或更多的指定语句。 Exit 语句退出Do...Loop、For...Next、Function 或Sub 代码块。 Exp 函数返回e （自然对数的底）的多少次方。 自乘运算符(^) 指数函数，幂为自变量。 False 关键字，其值为零。

vb小游戏代码

数字排序小游戏 Option Explicit Dim Label2X As Integer '记录标签控件数组中要移动的标签控件左上角X的位置 Dim Label2Y As Integer '记录标签控件数组中要移动的标签控件左上角Y的位置 '让标签数组中的每个标签控件上显示的数字是随机的，无重复的 Private Sub Init() Randomize Dim a(7) As Integer Dim i As Integer, k As Integer Label1.Caption = "" For i = 0 To 7 a(i) = i Next For i = 0 To 7 k = Int(Rnd * 8) Do While a(k) = -1 'a(k)=-1表示该数组元素对应的数字已经被使用过了k = Int(Rnd * 8) '重新生成k的值，直到a(k)的值不等于-1 Loop Label2(i).Caption = Trim(Str(a(k))) a(k) = -1 'a(k)的值已经使用了，不能再用，重新赋值为-1与其他的元素值相区别

Next i End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer Dim z As Integer Init Picture1.Enabled = True '让空白标签Label1出现的位置随机 Randomize '记录下空白标签Label1的位置 x = Label1.Left y = Label1.Top z = Int(Rnd * 8) '将空白标签Label1和标签控件数组任一控件交换位置 Label1.Move Label2(z).Left, Label2(z).Top Label2(z).Move x, y Command1.Enabled = False End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Dim i As Integer Picture1.Enabled = False '在标签中显示游戏说明信息 Label3.Caption = "如左图所示，将数字按0-7顺" & vbCrLf & vbCrLf & "序依次排列，即取得胜利。" '在标签中显示排列规则后的数字顺序 Label1.Caption = 0 For i = 0 To 6 Label2(i).Caption = i + 1 Next End Sub

VB代码大全

隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。

VB窗体美化

学习窗体美化不错的知识 ==================================================================================== 相信大家看过许多形状怪异的窗口吧？可是在VB里，系统提供的只是一个矩形的窗体。如何在VB里实现这种异形窗体呢？ 其实原理很简单。首先，在内存中构建一个想要的图形，再通过API函数将窗体设置为此形状，最后将图片放上去就可以了。关键在于如何构建这个想要的图形。让我们看看下面这个图： 。 这张图片中既有白色，也有其他彩色，而我们想要的颜色正是除白色以外的其它颜色。我们可以这样想：在内存中创建一幅一样大小的空的图像，然后只把我们需要的颜色（即非白色）输入内存。这样，就可以创建出我们想要的图形了。 以上是原理，接下来介绍几个API函数。 GetPixel：获取指定对象的某个点的颜色。 定义为：Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long 其中hdc为图形对象的句柄，x、y为坐标。 SelectObject：向内存中的指定地点输入图形。 定义为：Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long 其中hdc为内存中图形对象的句柄，hObject为欲输入的图像。 CreateCompatibleDC：在内存中创建一个与指定对象一样的场景（可以理解为图像）。 定义为：Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long 其中hdc为指定对象的句柄。 DeleteObject：删除GDI对象（在这里用来删除用完的内存中的图形）。记住，用完后释放资源是非常重要的！ 定义为：Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

vb常用程序代码

1、求半径为r的圆的面积，要求用户从键盘输入半r。 程序代码： Private Sub Form_click() Const PI = 3.14 Dim r% Dim s! r = InputBox("请输入半径r的值：", "求圆的面积") s = PI * r * r Form1.FontSize = 16 Print "半径是" + Str(r) + "的圆的面积是" + Str(s) End Sub 2、输入三个整数，从小到大顺序输出。 程序代码： Private Sub Form_click() a = InputBox("a") b = InputBox("b") c = InputBox("c") Print "排序前："; a, b, c If a > b Then t = a: a = b: b = t If a > c Then t = a: a = c: c = t If b > c Then t = b: b = c: c = t Print "排序后："; a, b, c End Sub 3、输入三个整数，从大到小顺序输出。 程序代码： Private Sub Form_click() a = InputBox("a") b = InputBox("b") c = InputBox("c") Print "排序前："; a, b, c If a

VB 做简易计算机程序代码

VB 做简易计算机程序代码 Private Sub Command1_Click() '每点击一下该按钮,就在文本框的尾部加字符"0" '如果txtLabel为空,则说明现在正在输入的第一个数字 '负责表示输入的是第二个数字 If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "0" Else txtSecond.Text = txtSecond.Text + "0" End If End Sub Private Sub Command10_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "8" Else txtSecond.Text = txtSecond.Text + "8" End If End Sub Private Sub Command11_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "9" Else txtSecond.Text = txtSecond.Text + "9" End If End Sub Private Sub Command12_Click() txtLabel.Text = "加" End Sub Private Sub Command13_Click() txtLabel.Text = "减" End Sub Private Sub Command14_Click() txtLabel.Text = "乘" End Sub Private Sub Command15_Click() txtLabel.Text = "除"

vb程序设计试题(含答案)

第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )

VB教程经典

经典VB基础教程 第1课…………VB基础 第2课…………标签控件 第3课…………文本框 第4课…………命令按钮 第5课…………图片框 第6课…………复选框 第7课…………单选按钮I 第8课…………单选按钮II 第9课…………定时器 第10课…………音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园…… VB程序设计基础 一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。 VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。 VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。

（一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。 （二）VB窗口 1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。 2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。 （1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令） （2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。 （3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。 3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。） 4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。 （1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。 （2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。 （3）小窗口：在右侧有三个纵向排列的窗口。 ①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口； ②下面是属性窗口，属性是一个对象的名称、大小、颜色等等； ③最下面是布局窗口，里面显示程序运行时的位置，拖动里面的小框可以改变程序的显示位置。 4、下面修改窗体的属性，在右侧的属性窗口中找到Caption项，在它右边的格子里点一下鼠标左键，然后输入“窗体”两个字，观察一下工作区中的窗体的标题是否已经改变，Caption是设置一个应用程序的窗口标题，再在属性窗口

vb简单的计算机源代码

vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。Private Sub Command1_Click() = "欢迎使用智能计算器" '载入默认正常显示 If = "0" Then '1类分歧ElseIf = "" Or = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" Else '2类分歧 Dim a, b, c As Double a = Val

b = Val c = a + b = c = "" = "" End If If = "1" Then '1类分歧ElseIf = "" Or = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" Else '2类分歧

Dim d, e, f As Double d = Val e = Val f = d + e = f End If End Sub Private Sub Command2_Click() = "欢迎使用智能计算器" If = "1" Then ElseIf = "" Or = "" Then = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then = "xataliq kuruldi"

VB程序练习题整理稿剖析

1．退出Visual Basic 的快捷键是______。A. Ctrl+Q B.Shift+Q C.Alt+Q 2．窗体设计器是用于设计______。 A．应用程序的界面 C．应用程序的代码D. Ctrl+Alt+Q B. 对象的属性D. 窗体的代码 3．启动Visual Basic 后,VB为用户建立的第一个窗体是______。 A．Form1 B.Form C．窗体1 D. 窗体 4．启动Visual Basic 后,VB为用户新建立的工程的名字是______。 A．窗体1 B. 工程1 C．窗体 D. 工程 5．工程资源管理器窗口包含的文件类型有______种。 A．1 B.2 C．3 D. 4 6．如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。 A．编辑C．调试B. 文件D. 视图 7．能够通过标准工具栏打开的窗口是______。 A．代码窗口 C．属性窗口 8．窗体文件的扩展名______。B. 设计器窗口D. 窗体布局窗口 A．.bas B. vbp C．.exe 9．工程文件的扩展名______。 A．.com D. frm B. vbp C．.exe D. bas 10．Visual Basic的编程机制是______。 A．面向过程C．事件驱动B. 面向对象D. 可视化 （三）练习题 使用VB建立一个应用软件的全过程有哪些步骤？。1．具体过程如下（1）在窗体上建立用户窗口（界面）对象。 （2）分别对对象设置属性。 （3）分别对对象事件的过程编程且完成代码输入。 （4）运行程序和调试程序。 （5）保存程序。 1． 2．保存VB文件，至少要保存几个文件？应先保存什么文件？2．至少保存2个文件，先保存窗体文件，后保存工程文件。

作业一 简单VB程序设计

作业一简单VB程序设计 1.对于窗体，下面______属性在程序运行时其属性设置起作用。 （A）MaxButton （B）BorderStyle （C）Name （D）Left 2.类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为______。 （A）对象（B）容器（C）实体（D）类 3.若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。 （A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle 4.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言 5.文本框没有______属性。 （A）Enabled （B）Visible （C）BackColor （D）Caption 6.不论何控件，共同具有的是______属性。 （A）Text （B）Name （C）ForeColor （D）Caption 7.要使Form1窗体的标题栏显示"欢迎使用VB"，以下______语句是正确的。 （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption='欢迎使用VB ' （C）Form1.Caption=欢迎使用VB （D）Form1.Caption="欢迎使用VB " 8.要使某控件在运行时不可显示，应对______属性进行设置。 （A）Enabled （B）Visible （C）BackColor （D）Caption 9.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列______属性设置就有效。（A）MaxButton （B）BorderStyle （C）Width （D）MinButton 10.当运行程序时，系统自动执行启动窗体的______事件过程。 （A）Load （B）Click （C）UnLoad （D）GotFocus 11.当文本框的ScrollBars属性设置了非零值，却没有效果，原因是______。 （A）文本框中没有内容（B）文本框的MultiLine属性为False （C）文本框的MultiLine属性为True （D）文本框的Locked属性为True 12.要判断在文本框是否按了Enter键，应在文本框的______事件中判断。 （A）Change （B）KeyDown （C）Click （D）KeyPress 13.将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是______。 （A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对 14.当需要上下文帮助时，选择要帮助的"难题"，然后按______键，就可出现MSDN窗口及显示所需"难题"的帮助信息。 （A）Help （B）F10 （C）Esc （D）F1 15.Visual Basic有三种工作模式，它们分别是______模式。 （A）设计、编译和运行（B）设计、运行和中断 （C）设计、运行和调试（D）编译、运行和调试 答案：DADBD BDBBA BDADB

常见vb程序设计代码

常见vb程序设计代码 作者 : 窦振山 1、猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？、、 Private Sub Command1_Click() Dim m(1 To 7) m(1) = 1 For i = 2 To 7 m(i) = (m(i - 1) + 1) * 2 Next For i = 1 To 7 Print "第" & i & "天的桃数是"; m(i) Next End Sub 2、百元百鸡问题：公鸡三元一只，母鸡两元一只，小鸡一元两只，现用百元买一百只鸡Private Sub Command1_Click() Dim x As Integer Dim y As Integer For x = 1 To 100 For y = 1 To 100 If 3 * x + 2 * y + (100 - x - y) / 2 = 100 Then Print "公鸡 "; x; "母鸡"; y; "小鸡"; 100 - x - y End If Next Next End Sub 1、综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。界面设计用到了三个command即“添加”、“查询”和“退出”，八个label和四个text 用来输入学号、姓名、成绩和年龄，一个frame，一个picturebox图片框用来显示结果 其程序代码设计如下： Private Type stu id As Integer nam As String sco As Single age As Integer End Type Dim students(100) As stu Dim s As Integer Private Sub Command1_Click() Static i As Integer If Text1.Text = "" Then

VB程序代码简单小程序

V B程序代码简单小程 序 集团标准化工作小组 [Q8QX9QT-X8QQB8Q8-NQ8QJ8-M8QMN]

实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As , ByVal e As Handles If + / timers < Then += / timers Else = False = ("进度完成！") End If temp += 1 = () End Sub Private Sub Form1_Load(ByVal sender As , ByVal e As Handles timers = 30 End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As Handles timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As Handles = True End Sub End Class 实验二（定时器控制蝴蝶飞舞） Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As , ByVal e As Handles ’Dim t As Boolean ' If t = True Then ' = ' t = False 'Else

VB代码

VB代码 *概述（将文本框移动到右上角） Private Sub Command1_Click() Text1.Left = Form1.Width - Text1.Width Text1.Top = 0 End Sub *控件1（登录窗口的设置登录名：admin 密码：123456）Private Sub cmdLogin_Click() If txtID.Text = "admin" And txtPsw.Text = "123456" Then MsgBox "登录成功", vbOKOnly + vbInformation Else MsgBox "登录失败", vbOKOnly + vbCritical End If End Sub Private Sub cmdReset_Click() txtID.Text = "" txtPsw.Text = "" End Sub Private Sub cmdClose_Click() End End Sub Private Sub txtID_Change() End Sub *控件2（改变字体字形和字号） Private Sub cmdSet_Click() If optST.Value = True Then lblCaption.FontName = "宋体" ElseIf optLS.Value = True Then lblCaption.FontName = "隶书" Else lblCaption.FontName = "楷体" End If

If optFont16.Value = True Then lblCaption.FontSize = 16 ElseIf optFont18.Value = True Then lblCaption.FontSize = 18 Else lblCaption.FontSize = 20 End If lblCaption.FontBold = ChkBold.Value lblCaption.FontItalic = ChkItalic.Value End Sub *控件3（对列表框进行选项添加，删除，清空）Option Explicit Private Sub Form_Load() List1.AddItem "蚕豆" List1.AddItem "扁豆" List1.AddItem "绿豆" List1.AddItem "红豆" List1.AddItem "刀豆" End Sub Private Sub Command1_Click() List1.AddItem Text1 Text1 = "" End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub Command3_Click() List1.Clear End Sub Private Sub Command4_Click() End End Sub