VB判断三角形

教学设计表单

大学VB考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/e511545694.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0

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语言

题目描述 418 VB中，（B）控件对象在运行时一定不显示。A:Label B:Timer C:TextBox D:CommandButton 419 VB中，将Interval属性值设置为（D）时，计时器控件每隔5秒钟产生一个计时器事件。A:5 B:500 C:300 D:5000 420 VB中，可以弹出一个对话框的函数是（D）A:Int() B:Rnd() C:V al() D:MsgBox() 421 VB中，Rnd（B）函数的值不可能是（B）A:0 B:1 C:0.1234 D:0.00005 422 VB中，Int(5.9)的返回值是（C）A:3 B:4 C:5 D:6 423 "下面程序的运行结果是（B） Private Sub Command1_Click（B） Text1.Text = ""123"" Text2.Text = ""321"" a = Text1.Text + Text2.Text Print a End Sub" A:444 B:123321 C:321123 D:132231 424 VB中正确的循环语句是（B）A:For x=1 to step 10 B:For x=1 to 10 step 2 C:For x=1 to 10 step -1 D:For x=10 to 1 425 "下面程序的运行结果是（B） Dim a As Integer, b As Integer a=6 b=15 S=1+(a*b)/2 Print S" A:6 B:46 C:15 D:45 426 "VB中,执行下面的程序段后，b的值为（A） a = 100 b = 20 a = a + b b = a - b" A:100 B:120 C:20 D:80 427 "x=10 If x<=12 then y=2*x+6 Else y=x/2 End If 上述程序段中y的值是（A）" A:26 B:25 C:10 D:5 428 "下列程序段的运行结果是（C） x=3 Select Case x Case 5 Print ""优秀"" Case 4 Print ""良好"" Case 3 Print ""通过"" Case Else Print ""不通过"" End Select" A:优秀B:良好C:通过D:不通过 429 执行Do……Loop Until语句时（B）A:先判断后循环B:先循环后判断C:顺序执行D:其余说法都不对 430 VB中，定义a为整型变量的语句是（A）A:Dim a As Integer B:Dim a As Single C:Dim a As Date D:Dim a As Byte 431 对VB窗体中控件的操作错误的是（A）A:单击Delete键一次只能删除一个控件B:单击Delete键一次可以同时删除多个控件C:按住Shift键,依次单击每个要选择的控件,可以同时选中多个控件D:按住Ctrl键,依次单击每个要选择的控件,可以同时选中多个控件 432 VB中，多个语句写在同一行时,每个语句之间用（B）符号分隔。 A:, B:: C:. D:； 433 VB中，一条语句要分行书写,用（C）符号作续行符。A:“-”B:“+”C:“_” D:“…” 434 "下列VB程序段执行后x的值为（B）a=8 If a<9 Then x=9 End If Print x" A:8 B:9 C:0 D:1 435 在VB中，表达式9\4的结果是（B）A:2.5 B:2 C:3 D:40 436 在VB中,Int（23.512）的值为（D）A:-23 B:-24 C:24 D:23 437 VB中，定义a为实型变量的语句是（B）

VB程序if语句选择

一、有如下程序段： x=7 If x>5 Then y=11-2*x Else y=10+x^2 End If 该程序段运行后，变量y 的值是（） ZR_A=-3 ZR_B=5 ZR_C=10 ZR_D=59 —————————————————————————————————————————二、如图所示算法的功能是（） ZR_A=按从小到大的顺序输出两个变量的值 ZR_B=按从大到小的顺序输出两个变量的值 ZR_C=交换两个变量的值 ZR_D=找出两个变量中的较小者————————————————————————————————————————— 三、有如下程序段： t=5 If t<>5 Then f=10 Else f=10+(t-3)*2 End IF 该程序段运行后，变量f的值是（） ZR_A=5 ZR_B=10 ZR_C=14 ZR_D=20 —————————————————————————————————————————

四、流程图如图所示，若输入x的值为0，则输出结果是（） ZR_A=10 ZR_B=16 ZR_C=4 ZR_D=-4 —————————————————————————————————————————五、淄博市规定60岁及以上老年人可以办理老年证，办证的流程如下图，这属于（）。 ZR_A=双路径决策ZR_B=多路径决策ZR_C=计数循环ZR_D=变量—————————————————————————————————————————六、某商场香蕉每斤1.5元，为了促销，规定购买4斤或4斤以上打八折，不足4斤的按原价格销售。下面是用VB编写的程序，红线上应填入的语句是（）。 ZR_A=y = 1.5 * x * 0.8 ZR_B=y = 1.5 * x /4 ZR_C=y = 4 * x * 0.8 ZR_D=y = 1.5 * x * 0.2 —————————————————————————————————————————

Excel之VBA编程常用语句300句汇总

Excel之VBA编程常用语句300句 时间:2009-11-27 21:12:21 来源:本站作者:未知我要投稿我要收藏投稿指南 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1 (2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 '恢复正常的错误提示 (5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示 (6) Application.ScreenUpdating=False '关闭屏幕刷新 Application.ScreenUpdating=True '打开屏幕刷新 (7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能 工作簿 (8) Workbooks.Add() '创建一个新的工作簿 (9) Workbooks(“book1.xls”).Activate '激活名为book1的工作簿 (10) ThisWorkbook.Save '保存工作簿 (11) ThisWorkbook.close '关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数 (13) https://www.wendangku.net/doc/e511545694.html, '返回活动工作薄的名称 (14) https://www.wendangku.net/doc/e511545694.html, ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleT iled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化 工作表 (18) https://www.wendangku.net/doc/e511545694.html,edRange.Rows.Count ‘当前工作表中已使用的行数 (19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性) (20) Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前 (22) ActiveSheet.Move After:=ActiveWorkbook. _

vb单选判断题题库

序号题干答案 1 VB是一种面向对象的程序设计语言。对 2 VB通过窗体管理构成应用程序的各类文件的集合。错 3 VB支持弹出菜单，所谓“弹出菜单”是指单击鼠标后打开的 菜单。 错 4 Visual Basic程序的运行，仅能从某一窗体启动，如Form1 窗体。 错 5 Visual Basic程序的运行可以从Main()过程启动，也可以从 某 个窗体启动。 对 6 Visual Basic提供的几种标准坐标系统的原点都是在绘图区 域 的左上角，如果要把坐标原点放在其它位置，则需使用自定 义 坐标系统。 对 7 单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件 任务. 错 8 Dim i, j as integer 表明i和j都是整型变量。错 9 Single 和Double型用于保存浮点数,在VB中定义单精度浮 点8位 ,双浮点16位. 错 10 Visual_basic是合法的变量名。对 11 可以用"&"，"+"合并字符串，但是用在数值变量时，"+"可能 会 将两个数值加起来。 对 12 某一过程中的静态变量在过程结束后，静态变量及其值可以 在 其它过程中使用。 错 13 全局变量用global或public关键字声明，且仅在通用声明 处可 以定义。 错 14 如果某子程序add用public static sub add()定义，则该子 程 序的变量都是局部变量。 错

15 设A=3,B=4,C=5,D=6，则表达式A>B And C<=D Or 2*A>C 的值是False。 错 16 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来 定义. 错 17 在VB中，运算 "ABCDE123A" Like "[a*a] " 的结果是True。错 18 在VB中,运算 "D" Like "[! A-Z]" 的结果是True. 错 19 在VB中，运算"ABA"Like"[a?a]"的结果是False。对 20 MsgBox()函数建立的消息框能显示信息也能输入信息。错 21 MsgBox()函数建立的消息框能显示信息也能输入用户的信 息. 错 22 Picture图片框既可用来显示图片和绘制图形,也可用Print 方 法来显示文字. 错 23 在框架控件内的几个单选按钮中，可有一个或多个单选按钮 的Value属性为True。（正确答案：只有一个） 错 24 *.bmp格式的图片，如果在autosize设为False的图片框， 它会 以图片框大小完整显示出来。 错 25 “菜单编辑器”中至少要填“名称”和“标题”这两个框， 才 能正确完成菜单栏的设计。 错 26 ActiveX控件是扩展名为*.ocx的独立文件，使用时需用 “工程”/“部件”载入或移去。 对 27 Circle方法绘制扇形或圆弧图形时，图形的形状不仅与起始 角、 终止角的大小相关，而且与起始角、终止角的正或负相关。 对 28 Frame控件是一种容器控件,因此它可有它自己的坐标系. 错 29 Function函数有参数传递，并且一定有返回值。错 30 Image控件不能用作容器使用。对 31 Image控件使用的资源比Picture控件使用的多. 错 32 Line(500,500) – (2500,2500) 命令能够正确画出矩形。错 33 List1.Clear是清除List1的全部列表项，所以Clear是对象 的方法。 对 34 move方法的一般形式是:对象名.move A,B[,C,D],其中A指 Left ,C 指width. 错

vb选择与判断

VB 编程基础判断题（0错误 1正确） 1. Excel 可以处理电子表格数据，所以它是程序设计语言。答案： 0 2. 每种程序设计语言都有自己的语法和规则。答案：1 3. 使用VB 设计程序时，可以不用创建工程。答案：0 4. 通常状况下，我们会通过两种方法修改对象属性，一种是利用属性窗口，另一种是利用代码。答案：1 5. 在 VB 开发环境中，如果对象窗口工具箱工程资源管理器属性窗口和窗体布局窗口等被关闭，可以通过“视图”菜单再次打开。答案：1 6. 在VB 窗体中添加第一个标签控件后，该标签控件的Caption 标题属性设置的默认值是“command1”。答案：答案：0 7. 在VB 中，可以借助键同时选中多个对象。答案：1 8. 在VB 中，调整选中的多个控件的大小和位置时，要最后选中作为调整依据的控件。答案：1 9. 在VB 中，一个程序可能包含若干个不同的文件，但一定不包括工程文件和窗体文件。答案：0 10. 在VB 中，一个程序中的工程文件扩展名为vbp ，窗体文件扩展名为frm。答案：1 11. 在VB 中，要想让同一窗体上的3 个按钮控件的大小相同，可以使用“格式”菜单中的“统一尺寸”子菜单的“两者都相同”命令。答案：1 12. 在VB 中，标签一般用来显示信息，文本框用来接受用户输入的信息。答案：1 13. 在VB 程序中，被使用的窗体和控件统称为对象。答案：1 14. 在VB 中，属性窗口通常显示的是当前被选中的对象的具体属性。答案：1 15. 在VB 中，对象的“名称”和“Caption”是两种相同的属性。答案：0 16. 在VB 中，标签和命令按钮显示的文字由其“Text”属性确定，文本框中显示的文字由其“Caption”属性确定。答案：0 17. 在VB 中我们可以接触两种程序界面，一种是窗体中不带网格点的设计界面，另一种是带网格点的运行界面。答案：0 18. 属性窗口有两个选项卡，一个是按字母排序别一个是按类进行排，但都是用来显示某一对象的各种属性的。答案：1 19. 在VB 中，语句命令中的符号，都必须是英文字符。答案：1 20. 在VB 中，一个对象只能响应一种事件。答案：0 21. VB 的代码窗口包括对象名框事件过程名框和代码编辑区3 部分。答案：1 22. 在VB 中，125 是数值型数据，"125"也是数据型数据。答案：0 23. 在VB 中，可以使用“User & name”作为变量名。答案：0 24. 在VB 程序中，使用Option Explicit 后，如果再使用未加声明的变量，运行程序时会出现错误提示。答案：1 25. 在VB 中CStr 函数可以将数值型表达式的值转换成对应的字符串。答案：1

OFFICE VB 语句

定制模块行为 (1) Option Explicit ''强制对模块内所有变量进行声明 Option Private Module ''标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示Option Compare Text ''字符串不区分大小写 Option Base 1 ''指定数组的第一个下标为1 (2) On Error Resume Next ''忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler ''当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 ''恢复正常的错误提示 (5) Application.DisplayAlerts=False ''在程序执行过程中使出现的警告框不显示 (6) Application.ScreenUpdating=False ''关闭屏幕刷新 Application.ScreenUpdating=True ''打开屏幕刷新 (7) Application.Enable.CancelKey=xlDisabled ''禁用Ctrl+Break中止宏运行的功能 工作簿 (8) Workbooks.Add() ''创建一个新的工作簿 (9) Workbooks(“book1.xls”).Activate ''激活名为book1的工作簿 (10) ThisWorkbook.Save ''保存工作簿 (11) ThisWorkbook.close ''关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count ''获取活动工作薄中工作表数 (13) https://www.wendangku.net/doc/e511545694.html, ''返回活动工作薄的名称 (14) https://www.wendangku.net/doc/e511545694.html, ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化 工作表 (18) https://www.wendangku.net/doc/e511545694.html,edRange.Rows.Count ‘当前工作表中已使用的行数 (19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性) (20) Sheets(Sheet1).Name= “Sum”''将Sheet1命名为Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ''添加一个新工作表在第一工作表前 (22) ActiveSheet.Move After:=ActiveWorkbook. _

VB_经典考试题及答案

目录 一、填空题 (2) 二、选择题 (5) 三、程序填空 (18) 四、阅读程序写结果 (25) 五、编程题 (31) 六、历年全国计算机二级等级考试真题(附答案) (33) 2006年4月全国计算机等级考试二级VB笔试试卷 (33) 2005年9月全国计算机等级考试二级VB笔试试卷 (43) 2005年4月全国计算机等级考试二级VB笔试试卷 (50) 2004年9月全国计算机等级考试二级VB笔试试卷 (57)

一、填空题 1、在程序中使用日期型数据时，必须用符号 将日期型数据括起来。 2、VB 集成发环境窗口，它包括了数个独立的窗口。除必须的"主窗口"外，常用的还有 窗口、 窗口、 窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。 3、在计算机上建立一个VB 应用程序的完整过程，一般分：建立用户界面的对象、对象属性的设置 、对象事件过程及编程、 程序的运行和调试 和 保存文件 五个步骤。 4、VB 中每个对象都有自己的属性， visible 属性决定控件是否允许可见。 5、在VB 对象的三要素中，可以把 属性 看作一个对象的性质，把 事件 看作对象的响应，把 方法 看作对象的动作。 6、VB 有三种工作模式，它们分别是 模式、 模式和 模式。 7、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal 属性值应设置为 。 8、在VB 中，为了使一个控件在运行时不可操作，应将控件的 enable 属性设置为 false 。 9、为了防止用户编辑文本框内的内容，应将控件的 locked 属性设置为 true 。 10、当要使标签框的大小随着Caption 属性的值进行扩展或缩小时，应将该控件的 autosize 属性设置为 true 。 11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim 声明语句是 dim ch5 as string*8 。 12、VB 中拥有多个窗体的程序可用 load 语句窗体装入内存，用 unload 语句从内存中删除指定窗体. 13、在多窗体工程中，可用 show 方法显示一个窗体，用 hide 方法将一个窗体隐藏起来。 14、结构化程序设计方法，把程序的结构规定为 三种基本结构，它们是： 选择结构 、 选择 结 构 、 和 __循环结构_________三种基本结构。 15、VB 逻辑数据类型只有True 与False 两个值。当逻辑数据转换成整型数据时，True 转换为 ，False 转换为 。 16、VB 中依据变量的作用范围将VB 变量的作用范围分为三类，它们是： 局部 变量、 全局 变量和 窗体模块 变量。 17、VB 中，对控件（对象）一些属性的设置，即可以通过在 程序代码 中设置，也可以在 属性窗口 中设置，两种方法来设置。 18、在VB 中，静态数组声明中的下标只能是 常 量 。而动态数组Redim 语句中的下标还可以是已赋值 的变量。 19、产生100～200之间（含100和200）的随机整数的表达式是： 。 20、表达式4 AND 5 的运算结果是 4 。 21、VB 中，当KeyPress 事件发生时会返回一个按键 的 ASCii 值。 22、VB 中，用Option Base 1说明后，Dim A （5，5）定义的数组有 25 个元素。 23、表达式“12345”<>“12345”&“ABC ”的值 是 。 24、在Select case 结构中应至少包含一个 __Case____子句。 25、启动VB6.0时，VB6.0默认的工程类型是 标准EXE 程序 。 26、A=7，B=3，C=4，则表达式A MOD 3 +B^3/C\5的值为 2 。 27、若要求在菜单中包含分隔条，则设计时，在菜单的标题属性中应设置为 “— “ 。 28、在For ……Next 循环中，循环次数由循环控制变量的初值、终值与步长三个因素决定，其计算公式为 循环次数=INT （终值-初值）/步长+1 。 29、激活属性窗口的快捷键是 F4 。 30、字符串常量由任何ASCII 字符组成，在程序中，它必须由 双引号 括起来。

vb常用语句

1.選取list控件的多個選項 Dim k As Integer Dim msql As String SQL = "select sn from gm1_carton_log where batch_no='" & Trim(Text1.Text) & "' and wo_no in " For k = 0 To List2.ListCount - 1 msql = msql & "'" & Trim(List2.List(k)) & "'," Next k msql = Left(msql, Len(msql) - 1) SQL = SQL & "(" & msql & ")" 2.自動執行程式 Timeleft=autoclose Autoclose=5 Private Sub Timer1_Timer() TimeLeft = TimeLeft - 1 lblTimeRemaining.Caption = TimeLeft If TimeLeft = 0 Then Timer1.Enabled = False Call OKButton_Click End If End Sub https://www.wendangku.net/doc/e511545694.html,box控件的用法 With Combo1 SQL = "" SQL = "select distinct(b.invoice_no) from gm1_ship_invoice a,gm1_ship_ms b where a.invoice_no=b.invoice_no and b.ship_fg='OPEN' " Set rs = DB.Execute(SQL) If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF Combo1.AddItem Trim(rs!invoice_no) rs.MoveNext Loop End If End With 2.MsflexGrid的用法

vb6常用的sql语句

一、引言 SQL Server是微软推出的中小型网络数据库系统，是目前最常用的数据库系统之一。随着SQL Server网络数据库应用程序日益增多，这种Web数据库应用系统的正常运行一般依赖于已存在的用户数据库。创建维护数据库的工作可用SQL Server提供的SQL Enterprise Manager工具来进行，如能提供一种定制的数据库管理工具，通过管理应用程序来管理数据库及其设备，对用户来说无疑是最理想的。 Visual Basic作为一种面向对象的可视化编程工具，具有简单易学，灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQL Server通信的API函数集及工具集，因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端，与后端的Microsoft SQL Server 相结合，VB能够提供一个高性能的客户机—服务器方案。 二、VB访问SQL Server数据的常用方法 使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即： ①数据访问对象/Jet ②为ODBC API编程 ③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程 ④RDO 远程数据对象(RemoteData Objects) ⑤ADO 数据对象(Active Data Objects) 1、数据访问对象/Jet VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access 数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB 实例。 注释：Form Declarations Dim mydb As Database Dim mydynaset As Dynaset Private Sub Form_Load() Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DA TABASE = sales") Set mydynaset = mydb CreateDynaset("Select*from Customers") End Sub 上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access 连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。 2、利用ODBC API编程

VB条件判断结构程序设计教学案

《VB条件判断结构程序设计》教学案例 职高一计算机王攀【案例背景】 职业高中计算机课程的实施，其课程目标定位于全面提升学生的计算机专业知识，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而面对学生素质的薄弱，要求教师要结合简单的生活实例，引导学生进行探索式学习，问题从简单的生活实例入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 控制结构是《VisualBasic语言程序设计基础》中最重要的章节之一，本节主要研究最基本的条件判断结构，旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “条件判断结构”是《VisualBasic语言程序设计基础》第七章第一节的内容，共分三课时，本课为第一课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适

VB语法基础

VB语言概述 1、编码规则 2、数据类型 3 、变量与常量 4 、运算符和表达式 5、函数

编码规则 1 . VB 代码中不区分字母的大小写 ( l ）为了提高程序的可读性，VB 对用户程序代码进行自动转换。( 2 ）对于VB 中的关键字，首字母总被转换成大写，其余字母被转换成小写。 ( 3 ）若关键字由多个英文单词组成，自动将每个单词首字母转换成大写。 ( 4 ）对于用户自定义的变量、过程名，VB 以第一次定义的为准，以后输入的自动向首次的定义转换。

2 ．语句书写自由 ( l ）在同一行上可以书写多条语句，语句间用冒号“: ”分隔。( 2 ）单行语句可分若干行书写，在本行后加入续行符（空格和下划线“_”）。 ( 3 ）一行允许多达255 个字符。

3 ．注释有利于程序的维护和调试 ?( l ）注释以Rem 开头，也可以用撇号“’”，引 导注释内容，用撇号引导的注释可以直接出现在语句后面。 ?( 2 ）在VB5 . 0 中新增了“块注释／取消块注释” 功能块，使得将若干行语句（或文字）设置为注释或取消注释十分方便。 ?设置注释块操作：选中要加注释的语句行，单击编辑 工具栏的“设置注释块”按钮。取消注释块操作：选中欲取消注释块的注释行，单击编辑工具栏的“解除注释块”按钮。

2 数据类型 数据类型关键字类型 符 占字节数范围 字节型Byte无10~ 255 逻辑型Boolean无2True 与False 整型Integer%2-32768 到32767 长整型Long&4-2,147,463,648 到2,147,463,647 单精度型Single!4-3.402823E38到3.402823E38 双精度型Double#8双精度实型数能够表达的数的范围是绝对值 小于10308的数，它有15 位有效数字 日期型Date无801,01,100到12,31,9999 字符型String$字符串0 一65535 个字符

Excel中最常用的300句VBA编程语句

最近研究了一下vba编程，主要是针对excel的，现在为了学习，特别从网上搜集了300句常用语句，以备不时之需，也留给网友，不方便的时候查询一下。 定制模块行为 (1) Option Explicit ‘强制对模块内所有变量进行声明 Option Private Module ‘标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text ‘字符串不区分大小写 Option Base 1 ‘指定数组的第一个下标为1 (2) On Error Resume Next ‘忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler ‘当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 ‘恢复正常的错误提示 (5) Application.DisplayAlerts=False ‘在程序执行过程中使出现的警告框不显示 (6) Application.ScreenUpdating=False ‘关闭屏幕刷新 Application.ScreenUpdating=True ‘打开屏幕刷新 (7) Appli cation.Enable.CancelKey=xlDisabled ‘禁用Ctrl+Break中止宏运行的功能 工作簿 (8) Workbooks.Add() ‘创建一个新的工作簿 (9) Workbooks(“book1.xls”).Activate ‘激活名为book1的工作簿 (10) ThisWorkbook.Save ‘保存工作簿 (11) ThisWorkbook.close ‘关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count ‘获取活动工作薄中工作表数 (13) https://www.wendangku.net/doc/e511545694.html, ‘返回活动工作薄的名称 (14) https://www.wendangku.net/doc/e511545694.html, ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlM aximized ‘将当前工作簿最大化 工作表 (18) https://www.wendangku.net/doc/e511545694.html,edRange.Rows.Count ‘当前工作表中已使用的行数 (19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性) (20) Sheets(Sheet1).Name= “Sum” ‘将Sheet1命名为Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ‘添加一个新工作表在第一工作表前 (22) ActiveSheet.Move After:=ActiveWorkbook. _ Sheets(ActiveWorkbook.Sheets.Count) ‘将当前工作表移至工作表的最后(23) Worksheets(Array(“sheet1”,”sheet2”)).Select ‘同时选择工作表1和工作表2 (24) Sheets(“sheet1”).Delete或Sheets(1).Delete ‘删除工作表1 (25) ActiveWorkbook.Sheets(i).Name ‘获取工作表i的名称 (26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines

VB中考选择试题(2020年8月整理).pdf

VB选择题 1. 在VB中工程文件的扩展名是（B）。 A.bas B.vbp C.frm D.vbg 2.有关VB语言描述错误的是（ A ） A.多个语句用“，”隔开 B.VB程序中一般不区分代码的大小写 C.VB程序中的变量名和常量名可以是单个字母，也可以是以字母打头的字符串 D.对程序窗口中的控件对象进行操作时，一个对象可以响应不同类型的事件 3.VB编程主要的基本过程有三个步骤（ C ） A.创建工程、设置属性、保存程序 B.创建工程、设计窗体、调试运行 C.设计窗体、设置属性、编写代码 D.设计窗体、编写代码、调试运行 4.要使标签Label1的标题栏显示“欢迎进入VB世界”，下面语句正确的是（D ）。 https://www.wendangku.net/doc/e511545694.html,bel1.caption=“欢迎进入VB世界” https://www.wendangku.net/doc/e511545694.html,bel1.caption=’欢迎进入VB世界’ https://www.wendangku.net/doc/e511545694.html,bel1.caption= 欢迎进入VB世界 https://www.wendangku.net/doc/e511545694.html,bel1.caption=”欢迎进入VB世界” 5.输入代码时，可以把一条语句分成两行或者多行，这时需要续行符，续行符是由（A )组成。 A.空格和下画线“_” B.空格和逗号“，” C.空格和加号“+” D.空格和减号“-” 6.在VB中输入代码时，为增强程序的可读性，通常用（B ）作为注释符，使后面的内容绿色显示。 A. // B. ‘ C. ; D. * 7.在VB中Sub语句的过程名是由（A ）组成。 A.对象名、下画线“_”和事件名组成 B.对象名、点“.”和属性组成 C.对象名、等号“=”和事件名组成 D.对象名、减号“-”和事件名组成

8.在VB语言中连接字符串的运算符有（ A ）。 A.“&”符号和“+”符号 B. “.”符号和“_”符号 C.“\”符号和“:”符号 D.“=”符号和“-”符号 9.一行内写多条语句时，每条语句之间要用（C ）符号分隔。 A., B.; C.: D.、 10下列不能打开代码窗口的操作是（D）。 A.双击窗体上的某个控件 B.双击窗体 C.单击视图菜单下的代码窗口选项 D.单击窗体或控件 11.若要使文本框的内容能以多行的形式显示，应修改文本框的（C ）属性。 A. Text B.font C.multiline D.locked 12.将文本框的（A）属性设为true时，只能显示信息不能输入内容。 A.locked B.visible C.enabled D.scrollbars 13.图像框可以将图片按图像框大小自动调整，那么需要将该图像框的（A）属性设为True。 A.Stretch属性 B.Visible属性 C.Picture属性 D.Enabled属性 14.下列赋值语句，语法错误的是（ B ） A.text1.text=” vb语言” B.a+b=y C.y=a+b D.i=i+1 15.将a、b两个变量的值进行互换，正确的是（B） A.a=b:b=a B.c=a:a=b:b=c C.b=a+b:a=a/b D.a=c:c=b:b=a