VB程序设计作业(一)答案
Visual Basic程序设计综合练习题一及答案

Visual Basic程序设计综合练习题一及答案一、单项选择题(每题3分,共45分)1.无论何种控件,共同具有的属性是()。
A.Text 属性B.Caption属性C.Name属性D.Autosize属性2.当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息,应按的键是()。
A.Help B.F10 C.F1 D.Esc3.为了保存一个Visual Basic应用程序,下列说法正确的是()。
A.只保存窗体文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件4.在Visual Basic中,变量的默认类型是()。
A.Integer B.VariantC.Double D.Currency5.Timer控件可用于后台进程中,可在Timer事件内编程,要停止触发Timer事件,需要设置的属性是()。
A.Interval=0或Enabled=False B.Interval=0或Visible=False C.Enabled=False 或Enabled=0 D.Interval=0且Enabled=False6.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列()属性设置就有效。
A.MaxButton B.BorderSyleC.Width D.MinButton7.有程序代码如下:Text1.Text = "Visual Basic",则Text1,Text ,和"Visual Basic"分别代表()。
A.对象,值,属性B.对象,方法,属性C.对象,属性,值D.属性,对象,值8.要设置命令按钮的背景图形,必须设置的两个属性是()。
A.Value和Icon B.Style和IconC.Caption和Picture D.Style和Picture9.在VB中,下列合法的变量名是()。
VisualBasic程序设计教程第版课后部分编程题参考答案(一)

VisualBasic程序设计教程第版课后部分编程题参考答案(一)Visual Basic 程序设计教程是程序员必备的一本教材。
而其第四版中也包含了大量课后编程题,能够帮助读者深入理解 Visual Basic 程序设计的核心内容。
本文就来为大家介绍一下这部分编程题的参考答案。
一、数据类型和运算符1. 将两个整数相加Dim num1, num2, result As Integernum1 = 10num2 = 20result = num1 + num2MsgBox ("The result of adding " & num1 & " and " & num2 & " is " & result & ".")2. 将两个小数相减Dim num1, num2, result As Doublenum1 = 2.5num2 = 1.2result = num1 - num2MsgBox ("The result of subtracting " & num2 & " from " & num1 & " is " & result & ".")3. 将两个字符拼接在一起Dim str1, str2, result As Stringstr1 = "Hello"str2 = "World"result = Str1 + Str2MsgBox ("The result of concatenating " & str1 & " and " & str2 & " is " & result & ".")二、程序结构和函数1. 将两个整数相加并返回结果Public Function Add(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerDim result As Integerresult = num1 + num2Return resultEnd Function2. 获取当前日期和时间Dim currentDateTime As StringcurrentDateTime = Now()MsgBox ("The current date and time is " & currentDateTime & ".")3. 显示一个消息框并返回用户的选择Dim userInput As IntegeruserInput = MsgBox("This is a prompt. Would you like tocontinue?", vbYesNoCancel, "Message Box Test")MsgBox ("Your choice was " & userInput & ".")三、数组和结构1. 将一个整数数组按照升序排列Dim numArray() As IntegernumArray = {5, 10, 2, 8, 1}Array.Sort(numArray)MsgBox ("The sorted array is " & Join(numArray, ", ") & ".")2. 创建一个结构体表示一个人,包含姓名、年龄和性别字段Public Structure PersonPublic Name As StringPublic Age As IntegerPublic Gender As StringEnd Structure3. 创建一个数组表示一个班级的学生,使用 Person 结构体表示每个学生的信息Dim students(2) As Personstudents(0).Name = "Tom"students(0).Age = 16students(0).Gender = "Male"students(1).Name = "Jane"students(1).Age = 15students(1).Gender = "Female"students(2).Name = "Bob"students(2).Age = 17students(2).Gender = "Male"四、文件和数据库1. 读取一个文本文件中的内容并显示Dim filePath As String ="C:\Users\UserName\Documents\MyFile.txt"Dim fileText As StringfileText = File.ReadAllText(filePath)MsgBox ("The contents of the file are " & fileText & ".")2. 将一个字符串写入到一个新建的文本文件中Dim filePath As String ="C:\Users\UserName\Documents\NewFile.txt"Dim fileContent As StringfileContent = "This is the content of the new file."File.WriteAllText(filePath, fileContent)MsgBox ("The file was created and the following content was written to it: " & fileContent & ".")3. 从一个 SQL 数据库中查询某个表格的内容Dim connectionString As String = "DataSource=myServerName;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Dim query As String = "SELECT * FROM myTable"Dim dataTable As New DataTable()Using connection As New SqlConnection(connectionString)connection.Open()Using command As New SqlCommand(query, connection)Using adapter As New SqlDataAdapter(command)adapter.Fill(dataTable)End UsingEnd UsingEnd UsingMsgBox ("The following records were retrieved from the database: " & vbNewLine & DataTableToString(dataTable))这些编程题的参考答案可以帮助读者理解 Visual Basic 程序设计的一些基本概念和技术,希望读者能够结合自己的实际情况进行学习和练习,不断提高自己的编程水平。
VB语言程序设计作业1

VB语言程序设计作业1单项选择题第1题Visual Basic窗体设计器的主要功能是()。
A、建立用户界面B、编写源程序代码C、画图D、显示文字答案:A第2题不能在标准模块中使用的是()。
A、私有变量B、公共变量C、通用过程D、事件过程答案:D第3题当我们输入代码时,Visual Basic可以自动检测()。
A、语法错误B、编译错误C、运行错误D、逻辑错误答案:A第4题可以在窗体模块的通用声明段中声明()。
A、全局变量B、全局常量C、全局数组D、全局用户自定义类型答案:A第5题如果要向工具箱中加入控件和部件,可以利用“工程”菜单中的()命令。
A、引用B、部件C、工程属性D、添加窗体答案:B第6题通过()可以在设计时直观地调整窗体在屏幕上的位置。
A、代码窗口B、窗体布局窗口C、窗体设计窗口D、属性窗口答案:B第7题下列操作中不能向工程中添加窗体的是:A、执行"工程"菜单中的"添加窗体"命令B、单击工具栏上的"添加窗体"按钮C、右击窗体,在弹出的菜单中选择"添加窗体"命令D、右击工程资源管理器,在弹出的菜单中选择"添加"命令,然后在下一级菜单中选择"添加窗体"命令答案:C第8题下列可以打开立即窗口的操作是()。
A、Ctrl+DB、Ctrl+EC、Ctrl+FD、Ctrl+G答案:D第9题要显示当前过程中的所有变量及对象的取值,可以利用()窗口。
A、监视B、调用堆栈C、立即D、本地答案:C第10题用标准工具栏中的工具按钮不能执行的操作是()。
A、添加工程B、打印源程序C、运行程序D、打开程序答案:B第11题与传统的程序设计语言相比,Visual Basic最突出的特点是()。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术答案:C第12题在Visual Basic 环境下,当写入一个新的Visual Basic 程序时,所做的第一件事是()。
北航14秋《VB语言程序设计》在线作业一答案

北航《VB语言程序设计》在线作业一单选题一、单选题(共25 道试题,共100 分。
只有一个选项是正确的)V 1. 条件1<x≤2或10≤x<15,在VB语言中应写成条件表达式()A. x>1 AND x<=2 OR a>=10 AND x<15B. x>1 OR x<=2 OR a>=10 OR x<15C. x>1 OR x<=2 AND a>=10 OR x<15D. x>1 AND x<=2 AND a>=10 AND x<15-----------------选择:A2. 表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是()A. 3、3.9655、3B. 3.9655、3、5C. 4、4、5D. 3.9655、4、3-----------------选择:B3. ^、/、Mod、*等4个算术运算符中,优先级最低的是()A. ^B. /C. ModD. *-----------------选择:C4. VB中项目文件的扩展名是什么。
A. VBPB. FRMC. VBWD. FRX-----------------选择:A5. 如果变量a=2,b=3,c=4,d=5,表达式NOT a>b AND NOT d<>c的值是()A. TrueB. FalseC. 1D. 0-----------------选择:B6. 不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是()A. 用Tab键B. 用鼠标C. 用方向键D. 不能实现-----------------选择:D7. 将任意一个正的两数N的个位数与十位数对换的表达式为()。
Visual-Basic程序设计综合练习题一及答案

Visual Basic程序设计综合练习题一及答案一、单项选择题(每题3分,共45分)1.无论何种控件,共同具有的属性是()。
A.Text 属性B.Caption属性C.Name属性D.Autosize属性2.当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息,应按的键是( )。
A.Help B.F10 C.F1 D.Esc3.为了保存一个Visual Basic应用程序,下列说法正确的是()。
A.只保存窗体文件(。
frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(。
bas)D.分别保存工程文件、窗体文件和标准模块文件4.在Visual Basic中,变量的默认类型是()。
A.Integer B.VariantC.Double D.Currency5.Timer控件可用于后台进程中,可在Timer事件内编程,要停止触发Timer事件,需要设置的属性是( )。
A.Interval=0或Enabled=False B.Interval=0或Visible=False C.Enabled=False 或Enabled=0 D.Interval=0且Enabled=False6.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列( )属性设置就有效。
A.MaxButton B.BorderSyleC.Width D.MinButton7.有程序代码如下:Text1。
Text = "Visual Basic",则Text1,Text ,和"Visual Basic"分别代表( )。
A.对象,值,属性B.对象,方法,属性C.对象,属性,值D.属性,对象,值8.要设置命令按钮的背景图形,必须设置的两个属性是()。
A.Value和Icon B.Style和IconC.Caption和Picture D.Style和Picture9.在VB中,下列合法的变量名是()。
VB程序设计考试(1)

VB程序设计考试(1)一、单选题(每题1分,共50题)1.Visual Basic 6.0集成环境的主窗口中不包括( C )。
正确A.标题栏B.菜单栏C.状态栏D.工具栏2.以下不属于Visual basic的工作模式的是()模式。
正确答案:AA.编译B.设计C.运行D.中断3.如果文本框的Enabled属性被设置为False,则运行时()。
正确答案:AA.文本框中的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框中的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容C.文本框中的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容4.控制名称都是系统的默认控件名,下列语句错误是()。
正确答案:Dmand1.Caption=List1.Text;bel1.Caption=List1.List(1);C.List1.List(2)=List1.Text+Str(List1.ListIndex);D.Text1.Text=+Text1.Caption。
5.以下叙述中正确的是()。
正确答案:A属性用来标识对象B.窗体Name属性值显示在标题栏中C.运行时对象Name属性可变D.对象的Name属性值可以为空6.Abc%,abc!,abc$,abc#分别声明abc是()。
正确答案:AA.整型、单精度、字符串、双精度变量B.整型、整型、字符串、双精度变量C.单精度、整型、字符串、双精度变量D.整型、双精度、字符串、双精度变量7.Visual Basic的逻辑类型数据占( A )字节内存。
正确A.2B.4C.8D.168.如果逻辑与(AnD)运算的结果为真,与它所连接的两个条件必须是( C )。
正确A.前一个为真,后一个为假B.前一个为假,后一个也为假C.前一个为真,后一个也为真D.前一个为假,后一个为真9.设a=6,则执行 x=iif(a>5,-1,0)后,x 的值为( D )。
(整理)大一《VB面向对象程序设计》作业及实验报告书_答案[1].
![(整理)大一《VB面向对象程序设计》作业及实验报告书_答案[1].](https://img.taocdn.com/s3/m/2b402f3190c69ec3d4bb7537.png)
实验一一DDBAB,CC(D)DDC,ADDCA二windows中断工具箱代码分类form2.show有语法错误错误事件结构化文件名和结构工程代码双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹属性方法fontload对象实验二一BCBCC,CBBDA,CCCBA,CBDCC二form_click()interval,5000vbp,frmtop,left,height,width,像素pictureloadlockedfont,alignmentgotfocus,lostfocus属性窗口,代码实验三一A(BC)(BC)AA,A(BCD)DBB,B二3,4,5,6,8,10,11,12,14,15,16 三abs(x+y)(3+x*y)^2(-b+sqr(b^2-4*a*c)/(2*a)sin(30*3.14/180)+exp(2)四int(rnd*71+20)x*y<0x mod 3=0 or xmod 7=0x>=10 and x<20x>="A" and x<="Z"left(s,3) 或者,mid(s,1,3)实验四一CDCDA,DBBAC二(1) 48.71E-01,-4.8712(2) 关系,逻辑,数值(3) 900,100,mid(a,2,1),c(4)m1,2,3print m & "月是第二季度"end select三(1) x=4 y=13(2) 10实验五一BCBAC二(1)for x=2 to 10s*(1-1/x)(2)t<1E-6(3)jt(4)511 5实验六一BCCCD DDDCA实验七一CCDAB DDAAA二(1)n!(2)1到n累加和(3)n是否是素数(4)冒泡排序(5)递归调用实现斐波那契数列(6)求最大公约数和最小公倍数。
最新电大《VisualBasic程序设计》形考作业任务01考试题及答案

最新电大《VisualBasic程序设计》形考作业任务01考试题及答案最新电大《VisualBasic程序设计》形考作业任务01-06网考试题及答案100%通过考试说明:《VisualBasic程序设计》形考共有6个任务。
任务1至任务2是客观题,其它为主观题。
任务1至任务6需在考试中多次抽取试卷,直到出现01任务_0001、02任务_0001、03任务_0001、04任务_0004、05任务_0001、06任务_0001试卷,就可以按照该套试卷答案答题。
做考题时,利用本文档中的查找工具,把考题中的关键字输到查找工具的查找内容框内,就可迅速查找到该题答案。
本文库还有其他教学考一体化答案,敬请查看。
01任务01任务_0001 一、单项选择题(共25道试题,共50分。
)1.启动VB后,就意味着要建立一个新()。
A.窗体B.程序C.文件D.工程2.应用程序打包后,其包文件的后缀为()。
A..exeB..cabC..txtD..ocx 3.当一个工程中含有多个窗体时,其中的启动窗体是()。
A.启动VB时创建的第一个窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体 4.下列说法中错误的是()。
A.应用程序的界面是窗体B.应用程序的界面是对象C.每个应用程序都要生成一个工程D.一个应用程序由若干个VisualBasic文件组成5.每建立一个窗体,工程管理器窗口中就会增加一个()。
A.工程文件B.窗体文件C.标准模块文件D.类模块文件 6.当运行程序时,系统自动执行启动窗体的()事件过程。
A.LoadB.ClickC.UnloadD.GotFocus 7.VB集成开发环境中,提供控件的窗口是()。
A.工具栏B.工具箱C.属性窗口D.工程管理器8.确定一个窗体或控件的大小的属性是()。
A.Top或LoftB.Top和LoftC.Width或HeightD.Width和Height 9.下列关于窗体的说法不正确的是()。
VB程序设计(专)练习一至四答案

第一阶段练习题(参考答案) 一、单项选择题二、填空题1.视图2.工具箱3.工具4.选项5.编辑器6.对象的性质,来描述和反映对象特征的参数7.对象的动作、行为8.Form窗体9.Font10.Multilint11.在运行时设计是无效的12.Style13.Style 14.Locked 15.TabIndex 16.017.VB9818.219.定义对象属性20.赋值三、程序填空题1.①Load ②False ③Change ④Text2 + Text12.①(Form1.ScaleHeight - Text1.Height) ②+ vbCrLf +四、编程题1.⑴操作步骤:①启动VB6.0②选择“文件”菜单中的“新建工程”命令,在随后出现“新建工程”对话框中选择“标准EXE”,单击“确定”按钮。
③单击工具箱的“标签”标准控件,在窗体上建立一个标签。
同样操作在窗体上建立三个标签、一个文本框和一个命令按钮。
⑵窗体属性的设置如表1所示。
⑶控件属性的设置如表2所示。
控件设置后的界面如图1所示表2控件属性列表图1设计界面⑷代码设计:双击Command1控件,或在“视图”菜单中选择“代码窗口”命令,出现代码窗口,选择Command1控件的Click项,然后Command1_Click( )过程代码如下:Private Sub Command1_Click()Label3 = "欢迎" + Text1 + "同学参加VB学习!"End Sub⑸运行测试:在“运行”菜单中选择“启动”命令,或按F5,或单击工具栏上“运行”按钮,进入运行状态,在文本框内输入自己的姓名后,单击命令按钮,出现图2所示的运行界面。
⑹保存窗体文件和工程文件。
图2运行界面2.(1)操作步骤:①启动VB6.0②选择“文件”菜单中的“新建工程”命令,在随后出现“新建工程”对话框中选择“标准EXE”,单击“确定”按钮。
东师《VB程序设计》2022年秋学期在线作业1

VB程序设计2022年秋学期在线作业1一、单选题1:执行语句Open "C:StuData.dat" For Input As #2 后,系统()。
A将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B在C盘当前文件夹下建立名为StuData.dat的顺序文件C将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中正确答案:A2:语句Dim AA(9,9)所定义数组AA的元素个数为A 18B 81C 100D 90正确答案:C3:表达式Int(Rnd(O)+1)+Int(Rnd(1)-1)的值是()。
A 1B 0C -1D 2正确答案:B4:在窗体模块的通用声明段中声明变量时,不能使用()关键字。
A DimB PublicC PrivateD Static正确答案:D5:新建一工程,将其窗体的(名称)属性设置为MyFirst,则默认的窗体文件名为()。
A Forml.frmB工程1.frmC MyFirst.frmD Form1.vbp正确答案:C6:通过设置ADO数据控件的()属性可以建立该控件到数据源的连接信息。
A RecordSourceB RecordSetC ConnectionStringD Database正确答案:C7:下列控件中,没有Caption属性的是()。
A框架B列表框C复选框D单选按钮正确答案:B8:模拟方形骰子投掷的表达式是()。
A Int(6 * Rnd(1))B Int( 1+6 * Rnd(1))C Int(6 * Rnd(1) -l)D Int(6 * Rnd(1)-1)正确答案:B9:引用列表框(List1 )最后一个数据项应使用()。
A List1.List(Listl1. ListCount)B List1. List(Listl. ListCount - 1)C List1. List(ListCount)D List l. List( ListCounr-1)正确答案:B10:以下可以作为Visual Basic变量名的是()。
VB程序设计教程 实验1答案

41011066付乾峰资源1103 实验1 自测习题1程序.Private Sub Form_Load()Label1.FontBold = FalseLabel1.FontUnderline = FalseLabel1.AutoSize = TrueLabel1.FontSize =15End SubPrivate Sub Command1_Click()Label1.AutoSize = TrueLabel1.FontSize = Label1.FontSize + 15End SubPrivate Sub Command2_Click()Label1.AutoSize = TrueLabel1.FontBold = TrueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click()Label1.FontBold = FalseLabel1.FontUnderline = FalseLabel1.AutoSize = TrueLabel1.FontSize = 15End Sub截图:自测习题2程序.Private Sub Command1_Click() Label1.Caption = "Visual Basic" Text1.Text = "程序设计题" End SubPrivate Sub Command2_Click() Label1.Caption = "程序设计题" Text1.Text = "Visual Basic" End Sub截图:自测习题3程序.Private Sub Command1_Click() Label1.FontSize = Label1.FontSize / 2 End SubPrivate Sub Command2_Click() Label1.Top = Label1.Top + 300 Label1.Left = Label1.Left + 300End SubPrivate Sub Form_Load()Label1.AutoSize = TrueLabel1.FontSize = 30Label1.Top = 300Label1.Left = 300End Sub截图:自测习题4程序.Private Sub Command1_Click()Label1.Caption = "简单的VB程序设计" Form1.Caption = "VB学习"End SubPrivate Sub Command2_Click()Label1.Caption = ""Form1.Caption = ""End SubPrivate Sub Command3_Click()EndEnd Sub截图:自测习题5程序.Private Sub Command1_Click()T ext1.T ext = ""T ext2.T ext = ""Label4.Caption = ""T ext1.SetFocusEnd SubPrivate Sub Command2_Click()Label4.Caption = Val(T ext1.T ext) + Val(T ext2.T ext) End SubPrivate Sub Command3_Click()EndEnd Sub截图:开始界面:运算界面:清除界面:。
VB程序设计课后习题答案(科学出版社)(1)

同步练习1二、选择题01——05 CADAB06——10 ACDAB11——15 CBDBB同步练习2二、选择题01——05 ABDCA06——10 CACBC11——15 DADAD16——20 BDBBB三、填空题1.可视2.LEFT、TOP、WIDTH、HEIGHT3.按字母顺序4.查看代码5.工具、编辑器6.FORM窗体、FONT7.MULTILINE8.在运行时设计是无效的9.工程、工程属性、通用、FORM1.SHOW 10.TABINDEX、0同步练习3二、选择题01——05 BCADB06——10 ADBBC11——15 DBCBA16——20 BAABB三、填空题1.整型、长整型、单精度型、双精度型2.SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3.164、今天是:3-194.FALSE5.-4、3、-3、3、-4、46.CDEF7.(X MOD 10)*10+X\108.(35\20)*20=20( 35 \ 20 )* 20 = 209.X MOD 3=0 OR X MOD 5=010.27.6、8.2、8、1、100、397、TRUE、FALSE同步练习4一、选择题01——05 DBCAD06——10 CBBAB11——15 D25BAC16——20 CBACB21——25 DAABC二、填空题1.正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2.1 2 33.X>=74.X<AMIN5.10246.117.128.6、I、”*”;9.0、100、I+110.2*I、6、”*”;三、编程题1.编程求n!,n从键盘输入。
Private Sub Form_Click()Dim n%, s%, i%n = Val(InputBox("请输入n的值:"))s = 1For i = 1 To ns = s * iNext iPrint n; "!="; sEnd Sub2.编程求100以内的全部质数。
VisualBasic6.0程序设计试题一与答案

VisualBasic6.0程序设计试题一与答案一、判断题:1、移动框架时框架内控件也跟随移动,所以框架内各控件的Left、Top属性值也将随之改变。
(错)2、VB提供的几种标准坐标系的原点都是在绘图区域的左上角,如果要把坐标原点放在其它位置,则需要使用自定义坐标系统。
(对)3、若窗体的坐标刻度为“缇”、窗体上的图片框控件的坐标刻度为“磅”,则图片框的Left属性值的单位为“缇”。
(对)4、用Scale方法改变了窗体坐标系后,窗体的Left、Top属性值不变。
(对)5、将容器的FillStyle属性设置为0后,容器中已绘制的图形的填充样式都为实心。
(错)6、语句“Shape1.FillStyle = vbSolid”和“Shape1.FillStyle = 0”作用相同。
(对)7、用Cls方法能够清除窗体或图片框中用Picture属性设置的图形。
(错)8、用Cls方法可以清除组合框中的所有表项。
(错)9、Picture图片框既可用来显示图片和绘制图形,也可以用Print方法来显示文字。
(对)10、在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外。
(错)11、框架控件和形状控件都不能响应用户的鼠标的单击事件。
(错)12、图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框控件的有关属性值。
(错)13、执行语句Pic1.Picture = ”c:\temp\a.bmp”,可以为图片框控件Pic1加载文件名为c:\temp\a.bmp的图形文件。
(错)14、Picture对象的AutoSize属性值为True时,表示该对象不管原来图片的大小,一律都自动调整为控件的大小尺寸,以便能够完整地显示该图片。
(错)15、图片框控件与影像框控件加载图形文件的方法相同。
(对)二、选择题:1、改变控件在窗体中的左右位置应该修改控件的()属性?(B)A. TopB. LeftC. WidthD. Right2、要改变控件的宽度,应该修改控件的()属性?(C)A. TopB. LeftC. WidthD. Right3、重新定义图片框控件的坐标系统,可采用该图片框的()方法?(A)A. ScaleB. ScaleXC. ScaleYD. SetFocus4、容器的ScaleMode属性值为()时,容器坐标系的每一个单位为一磅?(A)A. 2B. 1C. 4D. 65、改变了容器的坐标系后,该容器的()属性值不会改变?(A)A. LeftB. ScaleLeftC. ScaleTopD. ScaleWidth6、无论怎样改变图片框控件P1的坐标系,其中心点的x,y坐标分别为()?(B)A.(P1.ScaleLeft+P1.ScaleWidth)/2、(P1.ScaleTop+P1.ScaleHeight)/2B.P1.ScaleLeft+P1.ScaleWidth/2、P1.ScaleTop+P1.ScaleHeight/2C.P1.Left+P1.Width/2、P1.Top+P1.Height/2D.P1.Width/2、P1.Height/27、设置图片框控件PIC1的背景色为红色,可以执行语句()?(B)A.PIC1.BackColor = QBcolor(1)B.PIC1.BackColor = 255C.PIC1.BackColor = RGB(0,0,255)PIC1.BackColor = RGB(0,255,0)8、要使Shape控件以实心方式填充,应该设置其()属性?(B)A. FillColorB. FillStyleC. BackStyleD. Shape9、下列表达式中,()不是蓝颜色的值?(C)A.vbBlueB. Rgb(0,0,255)C. QBColor(12)D. &HFF000010、下列表达式中,()不是红颜色的值?(C)A.vbRedB. Rgb(255,0,0)C. QBColor(1)D. &HFF11、()对象不能作为控件的容器?(C)A. FormB. PictureBoxC. ShapeD. Frame12、若在图片框上用绘图方法绘制一个圆,则图片框的()属性不会对该圆的外观产生影响。
VB程序设计试题及答案(一)-vb程序设计答案

VB程序设计试题及答案(一)一、单选题1。
VB6.0是一种面向B 的编程环境。
(A)机器(B) 对象(C)过程(D)应用2。
要使FormI窗体的标题栏显示”欢迎使用VB",以下D 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”(B)Forml。
Caption='欢迎使用VB’(C) Forml。
Caption=欢迎使用VB(D)Forml.Caption="欢迎使用VB"3。
若要使命令按钮不可操作,要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI,可以通过C 事件获得输入键值的ASCII码。
(A) Change (B)LostFocus(C)KeyPress (D) GotFocus5。
下面A 是合法的变量名.(A)X_yz (B) 123ab。
(C) integer (D) X—Y6。
以下关系表达式中,其值为False的是A 。
(A)"ABC”>"AbC" (B) ”女”>”男"(C)"BASIC”=UCase("basic) (D) ”123”〈"23”7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B)x=1,y=1,z=1(C)x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构,三种基本结构是D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9。
下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是 D .(A) If sex="男" And age=4O And InStr(duty,”教授")〉O Then n=n+l(B) If sex=”男” And age=4O And (duty=”教授” Or duty="副教授”)Then n=n+l(C) If sex="男" And age=4O And Right(duty,2)=”教授” Then n=n+l(D) If sex="男” And age=4O And duty="教授" And duty="副教授" Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D .(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次(B)Do While…Loop循环和Do…Loop Until循环可能都不执行(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行(D)Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次11.以下B 是正确的For…Next结构。
vb习题1答案

vb习题1答案VB习题1答案在学习VB编程的过程中,练习题是提高编程能力的重要途径之一。
下面将给出VB习题1的答案,帮助大家更好地理解和掌握VB编程。
1. 编写一个VB程序,实现将两个整数相加并输出结果的功能。
答案:```vbPrivate Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)sum = num1 + num2lblResult.Caption = "结果:" & sumEnd Sub```2. 编写一个VB程序,实现将一个字符串反转并输出结果的功能。
答案:```vbPrivate Sub btnReverse_Click()Dim originalStr As StringDim reversedStr As StringoriginalStr = txtOriginal.TextFor i = Len(originalStr) To 1 Step -1reversedStr = reversedStr & Mid(originalStr, i, 1)Next ilblResult.Caption = "反转结果:" & reversedStrEnd Sub```3. 编写一个VB程序,实现将一个数组中的元素按照从小到大的顺序排序并输出结果的功能。
答案:```vbPrivate Sub btnSort_Click()Dim nums() As IntegerDim temp As Integernums = Split(txtNumbers.Text, ",")For i = LBound(nums) To UBound(nums) - 1For j = i + 1 To UBound(nums)If nums(i) > nums(j) Thentemp = nums(i)nums(i) = nums(j)nums(j) = tempEnd IfNext jNext ilblResult.Caption = "排序结果:" & Join(nums, ",")End Sub```4. 编写一个VB程序,实现计算一个数的阶乘并输出结果的功能。
《VB程序设计》作业参考答案

《VB程序设计》作业参考答案一.选择题1-5 ABC CB 6—10 CCA DC 11-15 ABC DB 15-20CDA CB 21-25DBD CC25-30DAC AA 31-35 DAC AA 36-40 BCC CD 41-45 CCC AC 46-50DDB AD51-55 ACA CD 56-60 BCA DA 61-65 BAADB 66-70DBDAC 71-72BB二.填空题(1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And(6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random(11)事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text(16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc (20)INT(Rnd*100) ;arr(21)Output ;Write #1,StuNo,StuName,StuEng三.编程题1.Option Base 1Private Sub Form_click()Dim a(3) As Integer, m As IntegerDo While m <> -1 And i < 3m = InputBox("请输入第" & i + 1 & "条边")i = i + 1a(i) = mIf a(i) < 0 ThenMsgBox "输入错误,请重新输入!"i = i - 1End IfLoopIf a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Thens = (a(1) + a(2) + a(3)) / 2s = Sqr(s * (s - a(1)) * (s - a(2)) * (s - a(3)))Print "三角形的面积是"; sElseMsgBox "三条边不能构成三角形!"EndEnd IfEnd Sub2.Option Base 1Private Sub Form_click()Dim a, ba = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)Dim c(8)For i = 1 To 8c(i) = a(i) + b(i)Print c(i);Next iEnd Sub3.Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print spc(3); Chr$(KeyCode); spc(3); Hex$(KeyCode); spc(3); Oct$(KeyCode); spc(3); KeyCode End SubPrivate Sub Form_Load()PrintShowPrint spc(3); "按键"; spc(3); "16进制"; spc(3); "8进制"; spc(3); "10进制"PrintEnd Sub4.Dim a(3) As Long, s As Long, p As Long '通用-声明Sub Su(n As Long) '通用subp = 1For i = 1 To np = p * iNext iEnd SubFunction F(n As Long) As Long '通用Functionp = 1For i = 1 To np = p * iNext iF = pEnd FunctionPrivate Sub Command1_Click()s = 0For i = 1 To 3a(i) = InputBox("请输入第" & i & " 个数的值:")Call Su(a(i))s = s + pNext iPrint "用Sub过程求得"; a(1); "! +"; a(2); "! +"; a(3); "! ="; s End SubPrivate Sub Command2_Click()s = 0For i = 1 To 3a(i) = InputBox("请输入第" & i & " 个数的值:")s = s + F(a(i))Next iPrint "用Function过程求得"; a(1); "! +"; a(2); "! +"; a(3); "! ="; s End SubPrivate Sub Command3_Click()EndEnd Sub。
VB程序设计(复旦出版社)习题答案

VB程序设计(复旦出版社)习题答案项目一习题参考答案一、选择题1.A2.ABD3.A4. B5.BCD6.C7.D8.C9.B 10.C 11.AB 12.ABD 13.D 14.A 15.BC 16.C 17.B 18.C 19.BD二、填空题1.属性2.窗体3.代码4.冒号5.退出(&X)6.Image7.Cursor 8. GotFocus 9. Click 10. 使大小相同11. F5 12. MultiLine 13. SelStart 14. LTrim15. Xor 16.# 17.Single 18.Option Explicit On19.(x1*y2+2*z)^6 20.x Mod 3 = 0 Or x Mod 5 = 021. 15 22.Left(Trim(Text1.Text),2)="VB"项目二习题参考答案一、选择题:1. D2. C3. C4. B5.BCD6.ABD7.ABD 8.C 9.C 10.C 11.A 12.ACD 13.ABC 14.ABD 15.C 16.C 17.A 18.C 19.BCD 20.ACD 21.ACD二、程序填空题1. ①“str的值是在(0,5)内”②“提示信息”2.① m \ 100 ② (m - a * 100) \ 10 ③ Str(c * 100 + b * 10 + a)3.①100 ②Left4.①Chr(Asc(e.KeyChar)) = "(" ②Chr(Asc(e.KeyChar)) = ")"③num = 0 ④num > 0 5.①Trim(TextBox3.text) ②TextBox2.Focus6.①(a = (b Mod 10)) Or (a = (b Mod 100)) Or (a = (b Mod 1000))7.①Len(RTrim(strin)) ②Mid(strin, i, 1) ③Chr(chasc)8.①Mid(TextBox1.Text, i, 1) ②CurC9.①t = 0②t = t * 10 + a10.①1 To 9 ②i ^ 3 + j ^ 3 + k ^ 3三、程序改错题1. Label3.Text = Int(Rnd() * 99) + 1,除数不能为0.2. y = c & b & a3. If n >= 1 And n <= 50 Then项目三习题参考答案一、选择题1.A 2.C 3.D 4.B 5.B 6.A 7.C 8.D 9.B 10.A 11.B 12.D二、填空题1.0 2.Preserve 3.24 4.外5.6三、程序填空1.⑴0 ⑵step 2 ⑶i + 2 ⑷(n \ 2) * 2 2.(1)0 ⑵UBound(a)(3)a(i) > 0 ⑷s2+a(i)3.⑴9 To 0 Step -1 ⑵A(0) = b ⑶mod4.(1) A(i) = key (2) A(j-1) = A(j) (3) Preserve A(n - 1)项目四习题参考答案一、单选题1. A2.A3. B4. C5.A6.A7.D8.C二、多选题1. A B A B C 3.B C D 4.C D三、填空题1. 不被改变2.窗体模块声明段中3.ublic4.不被初始化5.位置四、程序填空1. addsum = x + y2. x = y3. (1) max = x(i)(2) Call Amax(k, m)4.在代码窗口的窗体模块声明段中声明:Dim x As Integer, y As Integer项目五习题参考答案一、选择题1. B2. A3. B4.B5.C6.C7.C8.A9.A 10.D 11.C 12.C 13.D 14. C 15. A 16. A 17. B二、填空题1.(1)TabIndex (2)02. Enabled3. SmallChange4. Sorted5. -16. Remove7. Add8. Min9. LargeChange10. SmallChange11. 212. 613. 组合框或者:ComboBox14. Text 或者:文本15. 300016. Clear17. Interval18. ComboBox1.Items.Remove(ComboBox1.Items(2))19. (1)"Text Files(*.txt) |*.txt" (2) OpenFileDialog1.FileName 项目六习题参考答案一、选择题1. A2. D3. C4. B二、填空题1.下拉菜单弹出式菜单2.项目属性应用程序3.e.shift4.ContextMenu项目七习题参考答案一、选择题1.D2.C3.B4.B5.B6.C7.D8.A9.A 10.D11.C 12.B 13.B 14.D 15.A 16.A 17.C 18.C二、填空题1.对象(或object)2.class3.new4.类型.名称5.protected.private.friend6.继承(或inherit)7.is-a或继承.has-a或合成8.public9.Mybase 10.复用项目八习题参考答案一、选择题1. A2. C3. D4. C5. A6. B7. C8. B9. D 10. A 11. B 12. B 13. C D 14. B 15. A 16. C 17. C 18. A二、填空题1. ASCⅡ码文本编辑软件2.不等长文件顺序批量处理3. Output、Append Input4. 1~5115.模块Public Private6.定长字符串7. 等长有惟一的记录号记录号对该记录读写 8. 将返回文件的字节数 9. 将返回一个表示文件指针是否到达文件末尾的值三、程序填空题1.(1) FileOpen(1, "D:\students.txt", OpenMode.Output)(2) Write(1, s.s_name, s.s_sex, s.s_birthday, s.s_score)(3) FileClose(1)2.(1) FileOpen(1, "D:\students.txt", OpenMode.Input)(2) Not EOF(1)(3) Input(1, str)3.(1) UCase(Trim(TextBox1.Text))(2) FileClose(1)(3) Write(1, TextBox1.Text)4.(1) StrIn = LineInput(2)(2) StrSort(StrIn)(3) Print(2, StrOut)t(4) ReDim(5) StrSort = StrSort & sArr(i) 5.(1) OpenMode.Input(2) OpenMode.Output(3) Not EOF(1)(4) str1 = LineInput(1)(5) FileClose()(6) Kill "C:\old.txt"6.(1) OpenMode.Append (2) OpenMode.Inpu7.(1) FilePut(1, xData)(2) FileGet(1, xData, i)项目九习题参考答案一、单选题1. A2. B3. D4. C5. C6. C7. A8. B9. A 10. C二、填空题1.CreateGraphics() 2. 画布 3. Dispose 4. 子类 5. SolidBrush6. 47. 38. Region9. System.Drawing 10. System.Drawing2D项目十习题参考答案一、单选题1. B2. D3.B4.A5.B6.C7.A8.B二、填空题1.select * from 基本情况 where 专业=’物理’2.命令对象(Command)3.连接对象(Connection)4. VB可以访问的数据库有以下3类:(1)Jet数据库。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
《VB程序设计》作业(一)
客观题部分:
选择题(每题1分,共15题)
1. 下列哪个选项不是Visual Basic语言的特点(D )。
A)事件驱动编程机制
B)可视化编程
C)结构化程序设计
D)面向过程的程序设计
2. Visual Basic的版本中不包含(D )。
A)学习版B)专业版C)企业版D)标准版
3. 下列选项中不属于主窗口的是( C )。
A)工具栏B)菜单栏C)状态栏D)标题栏
4. 下列(D )计量单位是与屏幕分辨率无关的。
A)twip B)Point C)Pixel D)Inch
5. 工程资源管理器窗口不能显示( D )文件。
A)窗体文件(.frm)
B)标准模块文件(.bas)
C)控件文件(.ctl)
D)资源文件(.res)
vbp 工程文件frm 窗体文件cls 类模块文件ctl 用户控件文件pag 属性页文件bas 模块文件
6. 下列(B )方法不能打开工程资源管理器窗口。
A)单击工具栏上的“工程资源管理器”按钮
B)双击窗体或窗体上的控件
C)按Ctrl+R组合键
D)执行“视图”菜单中的“工程资源管理器”命令
7. 在Visual Basic中,使用( D )字符作为续行符。
A):B);C)` D)_
8. Visual Basic中,工程软件的扩展名为(A )。
A)vbp B)frm C)cls D)bas
9. 下面哪一种变量名是错误的(A )。
A)3abc B)a123 C)abc D)ab12%
10. 什么关键字声明的局部变量在整个程序运行中一直存在(C )。
A)Dim B)Public C)Static D)Private
11. 在Visual Basic 6.0中,字符串是被放在( B )号内的若干个字符。
A)单引号B)双引号C)圆括号D)花括号
12. ( A )种数据类型对小数点的位置有明确的位数限制。
A)浮点型B)货币型C)布尔型D)对象型
13. 在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2和 Label3的标签,然后编写如下代码: Private a As Integer
Private Sub Command1_C1ick()
Static b As Integer
Dim c As Integer
x=5
b=b + x
c=c + x
a=a + x
Label1.Caption=a
Label2.Caption=b
Label3.Caption=c
End Sub
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是( C )。
A) 5 5 5 B) 15 15 15 C) 15 15 5 D) 5 15 15
14. 下面哪一种变量的类型说明符的使用是正确的(B )。
A)Dim a: a = 2000$ B)Dim a: a% = 90000 C)Dim a: a& = True D)Dim a: a = “OK”
定义变量可以使用显式或隐式两种方式定义:
1、显式定义:Dim 变量名 As 类型
2、隐式定义:使用类型说明符
类型说明符如下: %——整型 &——长整型 !——单精度浮点数 #——双精度浮点数
@——货币型 $——字符串型楼主的情况就属于第二种——隐式定义。
DIM A$表示定义一个变量A,类型为字符串型。
没有 AS 的话默认是 Variant。
DIM X => Dim X As Variant DIM X$ => Dim X As String DIM X% => Dim X As Integer
15. 标题栏中不允许出现的工作状态是( D )。
A)设计阶段B)运行阶段C)中断阶段D)调试阶段
主观题部分:编程题(每题15分,共1题)
1、编程实现一个命令按钮command1的单击事件,单击该按钮后从键盘上输入若干学生的成绩,统计并输出最高分数和最低分数,当输入负数时结束输入。
Private Sub Command1_Click()
Dim mArr!(), Max!, Min!, i%, Mark!
i = 1
Max = 0
Min = 1000
Mark = InputBox("请输入分数", "负数结束")
Do While Mark > 0
ReDim Preserve mArr(1 To i)
mArr(i) = Mark
If Max < Mark Then Max = Mark
If Min > Mark Then Min = Mark
i = i + 1
Mark = InputBox("请输入分数", "负数结束")
Loop
Print "最高分: " & Max
Print "最低分: " & Min
End Sub。