VB上机练习题2:
VB练习题2

1.项目文件的扩展名是()A..vb B..sln C..exe D..vbproj2.集成开发环境有两类窗口:浮动和固定,下面的()窗口不是浮动窗口。
A.工具箱B.属性 C.即时D.窗体3.要使窗体的标题为“演示实例”,应修改窗体的()属性。
A.Caption B.Tip C.Item D.Text4.在中,下面属于方法的是()。
A.FocusB.SelectedTextC.LostFocusD.Keypress5.一条语句要在下一行继续写,可用()符号作为续行符。
A.+B.-C.空格和_D....6.若要使命令按钮不可操作,要对()属性进行设置。
A.EnabledB.VisibleC.BackColorD.Text7.在集成环境中创建应用程序时,除了工具箱窗口、窗体窗口和属性窗口外,必不可少的窗口是()A.窗体布局窗口B.立即窗口C.代码窗口D.监视窗口8.当运行程序时,系统自动执行启动窗体的()事件过程A.Load B.Click C.Unload D.GotFocus 9.当文本框的ScrollBars属性设置了非None值,却没有效果,原因是()A.文本框没有内容B.文本框的MultiLine属性为False C.文本框的MultiLine属性为True D.文本框的Locked属性为True10.若要使标签控件显示时不要覆盖窗体的背景图案,要对()属性进行设置A.BackColor B.BorderStyle C.ForeColor D.BackStyle 11.数据类型为Long的类型标识符为()。
A.%B.&C.!D.#12.下面()是日期型常量。
A.“5/17/12”B.5/17/12C.#5/17/12#D.(5/17/12)13.下面的()是合法的单精度型变量。
A.num!B.sum%C.char!D.mm#14.下面的()是合法变量名。
A.X_yzB.123abcC.IntegerD.X-Y15.Rnd函数不可能为下列的()值。
vb练习题及答案

vb练习题及答案VB练习题及答案VB(Visual Basic)是一种广泛应用于Windows操作系统的编程语言,它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程,下面将提供一些VB练习题及其答案,希望能对大家有所帮助。
练习题一:计算器程序编写一个VB程序,实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符(+、-、*、/),然后根据操作符进行相应的计算,并输出结果。
解答:```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二:学生成绩管理系统编写一个VB程序,实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩,然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答:```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三:简单的文本编辑器编写一个VB程序,实现一个简单的文本编辑器功能。
vb上机题库及答案

vb上机题库及答案【篇一:vb期末考试上机题编程答案】xt>1.新建一个工程,编写一个找出所有四位幸运数显示在列表框中,并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp,保存在d盘的vbtest文件夹中。
如不按要求保存,造成文件无法上传,后果自负!具体要求:1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;2、单击查找按钮,则开始查找并在列表框中显示结果,并在文本框中显示幸运数的个数;3、单击“清除”按钮,则将列表框和文本框清空;4、单击“退出”按钮,结束程序运行;5、程序中应包含一个过程,用于判断一个数是否是幸运数。
解:private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程,编写求某一自然数因子和的程序。
VB练习题2

一、概念填空题1.在Visaul Basic中,属性窗口分为四个部分,这四个部分分别是()、属性显示方式、属性列表和对当前属性的简单解释。
2.组合框有三种不同的风格,它们分别是:( )、( )和( )。
3. 时钟控件是有规律地以一定的( )激发计时器事件,而执行相应的代码程序。
4.A = 8,B = 3,C = 5,则表达式A MOD 3 + B^3 / C \ 5的值为()。
5.声明一个双精度变量Num5,的声明语句是 ( ) 。
6.有一文本框Text1,为了使该文本框在运行时获取焦点,应执行的语句是()。
7.在使用动态数组时,如要改变数组的大小而又不丢失数组中的数据,应使用()关键字。
8.Visual Basic逻辑数据类型只有 True 与 False 两个值。
当逻辑数据转换成整型数据时,True 转换为(),False转换为()。
9.在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类,它们是:()变量、()变量和()变量。
10.字符串常量是由任何ASCII字符组成,在程序代码中,它必须由()括起来。
11.如果有三个单选按钮直接画在窗体上,另有四个单选按钮画在框架中,则运行时,可以同时选中()个单选按钮。
二、概念选择题1.不能触发滚动条Change事件的操作是()。
A) 拖动滚动条的滑块 B) 单击两端箭头C) 单击滚动条的滑块 D) 单击滚动条的空白处2.已知变量x 、y为整数型,且x=4 , y=12 ,s为字符型,且s=“a”,Leble1为标签控件,Leble1的Caption属性值为Label1,下列合法的赋值语句是()。
A) X= Leble1.Caption B) Leble1.Caption=Str(X)C) X*3=Y D) Y=X*S3.下列可以将变量A、B的值互换的语句是( )。
A) A=B : B=A B) C=B : B=A :A=CC) A=C : C=B : B=A D) A=(A+B)/2 :B=(A-B)/24.下列叙述中错误的是()。
VB练习题 2

VB课堂小测练习题1、VB中,要在一行书写多条语句,各语句之间使用__分隔;注释语句用____分隔。
2、在VB中,对象的三要素分别是___、__和___。
3、VB中工程文件的扩展名为____;窗体文件的扩展名为___。
4、启动VB后,系统为用户新建的工程起一个为____的临时名称。
(5、在VB中用Const将Name声明为字符串“张三”常量,使用的语句是______。
6、在VB中,常量12345678& 的类型是______。
7、VB中声明了Variant变量,但未赋值,则系统默认其初始化值为___。
8、如果将布尔常量值TRUE赋给一个整型变量,则整型变量的值为____。
9、每建立一个窗体,工程管理器窗口中就会增加一个____文件。
10、窗体的Enabled属性的属性值是_________类型的数据.11、当窗体被加载时运行,发生的事件是_________。
12、删除字符串前导和尾随空格的函数是______。
、产生[10,37]之间的随机整数的VB表达式是_____。
14、函数INT(RND(0)*100)的取值范围是_________。
、INT(100*RND(1))产生的随机整数的取值范围是_________16、如果要改变窗体的标题,需要设置窗体的属性是_______。
17、控件和窗体的Name属性只能在 _____窗口中设置,不能在____窗口中设置。
18、要在窗体上显示图片,需设置窗体的_____属性.19、把当前目录下的图形文件pic1.jpg装入窗体FORM1中的语句为________.20、能够获得一个文本框中被选取文本的内容的属性是______。
21、表达式(73+1)\ (185-1)的值是________。
22、决定标签内显示内容的属性是_________.23、为了使标签能自动调整大小以显示全部文本内容,应把标签的____属性设置为True。
24、设窗体上有一个列表框控件List1,含有若干列表项。
计算机VB语言模拟试题二含答案

模拟试题二一、单选题1. 以下关于Visual Basic 特点的叙述中,错误的是 。
(A) 构成Visual Basic 程序的多个过程没有固定的执行顺序 (B) Visual Basic 程序只能编译运行(C) Visual Basic 是采用事件驱动编程机制的语言(D) Visual Basic 是结构化程序,具备结构化程序的三种基本结构 2. 有程序代码如下:Tex1.Text=" Tex1.Text "则Tex1、Text 、" Tex1.Text "分别代表 。
(A) 对象、值、属性 (B) 对象、方法、属性(C) 对象、属性、值 (D) 属性、对象、值 3. 下面关于对象的描述中, 是错误的。
(A) 在Visual Basic 中,对象所能响应的事件是由系统定义的(B) 对象的任何属性既可以通过“属性”窗口设定,也可以通过程序语句设定 (C) Visual Basic 中允许不同对象具有相同属性和方法 (D) Visual Basic 中的对象具有自己的属性和方法 4. 任何控件共同具有的是 属性。
(A) Text (B) Name (C) ForeColor (D) Caption5. 与数学表达式cd ab3对应 ,不正确的VB 算术表达式是 。
(A) a*b/(3*c*d) (B) a/3*b/c/d (C) a*b/3/c/d (D) a*b/3*c*d 6. InputBox 函数返回值的类型是 。
(A) 整型数值 (B) 字符串 (C) 变体 (D ) 数值或字符串 7. 下面正确的赋值语句是 。
(A) x+y=30 (B) y= *r*r (C) y=x+30 (D) 3y=x 8. 下面程序段运行后,显示的结果是 。
Dim x If x Then Print x Else Print x+1(A)l (B)O (C)-1 (D)显示出错信息9. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程,程序运行后,如果在“输入”对话框中输入3,则窗体上显示的是 。
vb试题2

下列关于VB 编程的说法中,不正确的是_D_______。
A.事件是能被对象识别的动作B.方法指示对象的行为C.属性是描述对象特征的数据D.VB程序采用的运行机制是面向对象用来确定一个控件在窗体上位置的属性是_D_______。
A.Width和HeightB.Width或HeightC.Top或LeftD.Top和Left在默认情况下,InputBox() 函数返回值的类型为___D_____。
A.逻辑类型B.变体类型C.数值型D.字符串型以下Case 语句中错误的是__A_____。
A.Case Is>10 And Is<5B.Case 3,5,Is>10C.Case Is>10D.Case 0 to 10当字符型变量中第三个字符是"C" 时,利用MsgBox 过程显示"Yes",否则显示"No",正确的条件语句是___A_____。
A.If Mid(c,3,1)="C" Then MsgBox "Yes" Else MsgBox "No"B.If Left(c,3,1)="C" Then MsgBox"Yes" Else MsgBox "No"C.If Right(c,3,1)="C" Then MsgBox "Yes" Else MsgBox "No"D.If string(c,3,1)="C" Then MsgBox "Yes" Else MsgBox "No"执行下列程序段输出的结果是_A_。
X%=2Do While x<8Print "*";X=x+2LoopA.***B.****C.*D.**要使For语句for k=__ To -5 Step -2循环执行20次,循环变量的初值应是___B______。
VB练习题(上机)含答案

VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。
程序运行后,单击命令按钮完成以下工作:①随机产生20个0到1000的整数,将其放入一个一维数组中②求出所有元素的平均值,并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮,如下图所示。
在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。
程序运行后,单击命令按钮完成以下工作:①随机产生30个0~1000的整数,将其放入一个一维数组中②求出其中的最大值,并显示在窗体上。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB上机练习题2
作业
要求:
1)、在桌面上建一个以自己名字命名的文件夹,再在自己的文件夹中建6个子文件夹,子文件夹分别命名为3、4、5、6、7、8。
2)、将下面1、2题答案用红色字体写在每题的右边或下边;3、4、5、6、7、8题做完后分别保存在上面相应的子文件夹中。
3)、全部做完后,先将本作业要求保存在自己的文件夹中,再将自己的文件夹压缩成.rar 文件,并将此文件以附件的形式通过网络学堂提交作业。
1、改正下列语句中的错误:
(1) print a=34+23 print“a=”;34+23
(2) print “c=”: 5+6 print“c=”;5+6
2、写出下列语句的运行结果:
(1) Print "25+32=";25+32 25+32=57
(2) Print "25+32=";
Print 25+32
(3) Print "china";"beijing","tianjin";
Print "nanjing"
列数
答案
(4) Print Tab(5); 400; Tab(10);-500; Spc(5); 600
(5) print Tab(5);"等级"; Spc(5);"考试"
列数:1234567890123456789012345
答案:
(6) Print format(1.717, "000.00")
(7) print format(123.4567, "###.###")
3、在窗体下部的任意位置画两个命令按钮,分别设置它们的标题属性为:“显示信息”、。
在窗体的上部任意位置画一个文本框。
编写程序,当用户单击“显示信息”按钮时,同时在文本框和窗体上打印信息”包头师范学院”,要求字体为“隶书”、字号为20磅 、颜色为“红色”。
当用户单击“清除”按钮时,文本框和窗体上的信息同时消失。
4、在窗体上部任意位置画一个标签控件和一个文本框控件,在窗体的下部画两个命令按钮,命令按钮的标题属性分别设置为:显示、清除。
编写程序,当程序运行时用户单击“显示按钮”,在标签和文本框中同时分别显示”内蒙古”、”包头师范学院”;当单击清除按钮时,标签和文本框中的信息同时消失。
5、在窗体上部任意位置画一个标签控件和两个文本框控件,在窗体的下部画一个命令按钮,命令按钮的标题属性为:清除。
编写程序,当程序运行时用户在第一个文本框中输入任意信息,当用户单击窗体时,第一个文本框中输入的信息同时分别显示在标签和第二个文本框中。
当单击“清除”按钮时,标签和两个文本框中的信息同时消失。
列数答案
6、在窗体上任意位置画两个名称(Name属性)分别为Com1、Com2的命令按钮,分别设置标题属性为:加载图片、清除图片。
编写程序,当用户单击“加载图片”按钮时,在窗体上加载一幅图片(图片自定),当用户单击“清除”按钮时,图片消失。
7、在窗体上任意位置画一个文本框和一个命令按钮,编写程序,当程序运行时用户单击命令按钮,文本框移动到窗体的左上角,并且文本框的大小是原来的2倍。
8、利用Print方法、Tab和Spc函数,当双击窗体时,显示下列图形。
(选作):
9、程序运行时,在Text1中任意选中部分内容,当单击“复制”按钮时,被选中的内容显示在Text2中,当单击“剪切”按钮时,Text1中选中的内容被剪切掉。
10、当单击command2时,将command1移动到窗体的(1000,800)处,并将大小设置为宽3000、高4000。
11、使用Move方法,当程序运行时每单击一次command1命令按钮,command2就向左移动500。
12、使用Move方法移动一个窗体。
当程序运行时双击窗体,窗体移动并定位在屏幕的左上角,同时窗体的长宽也缩小一倍。