2025年大一vb考试试题及答案

2025年大一vb考试试题及答案一、单项选择题（每题2分，共30分）1.以下合法的VB变量名是（）A.2025ScoreB.Name_1C.ForD.成绩$2.表达式3^2+5\23的计算结果是（）A.12B.14C.16D.183.执行语句a=Mid("VisualBasic",6,5)后，变量a的值是（）A."alBas"B."sualB"C."Basic"D."alBas"4.设x=5，y=10，执行Ifx>yThent=x:x=y:y=t后，x和y的值分别为（）A.5,10B.10,5C.5,5D.10,105.以下关于数组的声明，正确的是（）A.Dimarr(5)AsInteger'声明5个元素的数组B.Dimarr()AsInteger:ReDimarr(3To7)'声明下标3-7的数组C.Dimarr[10]AsString'VB合法数组声明D.Staticarr(2,3)AsDouble'声明二维静态数组6.要使文本框（Text1）只能输入数字，应设置的属性是（）A.Text1.MaxLengthB.Text1.PasswordCharC.Text1.EnabledD.Text1.KeyPress事件中限制输入7.执行以下代码后，输出结果是（）DimsAsString,iAsIntegers="abcde"Fori=1ToLen(s)Step2s=s&Mid(s,i,1)NextiPrintsA.abcdeaceB.abcdeabcC.abcdebdD.abcdeae8.以下关于Sub过程和Function过程的描述，错误的是（）A.Sub过程无返回值，Function过程有返回值B.调用Sub过程使用Call语句或直接使用过程名C.Function过程必须通过Return语句返回值D.两者都可以使用参数传递数据9.设文件号为1，要以追加方式打开D盘下的score.txt文件，正确的语句是（）A.Open"D:\score.txt"ForInputAs1B.Open"D:\score.txt"ForAppendAs1C.Open"D:\score.txt"ForOutputAs1D.Open"D:\score.txt"ForRandomAs110.执行以下循环后，变量n的值是（）DimnAsInteger,iAsIntegern=0Fori=1To10Step3IfiMod2=1Thenn=n+iNextiA.1+4+7+10B.1+7C.1+4+7D.1+7+1011.以下能正确提供10到20（含10和20）之间随机整数的表达式是（）A.Int(Rnd11)+10B.Int(Rnd10)+10C.Int(Rnd20)+10D.Int(Rnd11)+912.若要将命令按钮（Command1）的标题设置为"提交"，应修改的属性是（）A.Command1.NameB.Command1.CaptionC.Command1.TextD.Command1.Value13.以下关于菜单设计的描述，正确的是（）A.菜单控件只能通过菜单编辑器添加B.菜单项的Enabled属性设为False时，菜单项不可用但可见C.菜单项的Visible属性设为False时，菜单项不可见但可用D.主菜单项不能设置快捷键14.执行以下代码后，输出结果是（）Dima(3)AsInteger,iAsIntegera(0)=1:a(1)=2:a(2)=3:a(3)=4Fori=1To3a(i)=a(i1)+a(i)NextiPrinta(3)A.4B.7C.10D.1115.以下关于数据库操作的描述，错误的是（）A.使用ADODB.Connection对象建立数据库连接B.SQL语句"SELECTFROM学生WHERE成绩>80"用于查询成绩大于80的学生C.记录集（Recordset）的MoveNext方法用于将指针移到下一条记录D.连接字符串中"Provider=Microsoft.Jet.OLEDB.4.0"适用于Access2007及以上版本二、填空题（每空2分，共20分）1.表达式5+32^3Mod10的计算结果是（）。2.若x=7，y=3，执行z=IIf(x>y,x+y,x-y)后，z的值是（）。3.要使标签（Label1）的背景透明，应设置（）属性为True。4.声明一个包含10个元素的一维整型数组，下标从0到9，正确的语句是（）。5.执行以下代码后，变量m的值是（）。DimmAsInteger,kAsIntegerm=0k=1DoWhilek<=5m=m+kk=k+2Loop6.文本框（Text1）的（）事件在用户输入字符时触发，可用于实时验证输入。7.若要将列表框（List1）的第3个项目（从0开始计数）删除，应使用的语句是（）。8.执行以下代码后，输出结果的第一行是（），第二行是（）。Fori=1To2Forj=1To3Printi&""&j&"="&ij;NextjPrintNexti9.读取顺序文件时，使用（）语句将文件中的数据读入变量。三、程序分析题（每题8分，共24分）1.分析以下程序，写出运行后的输出结果。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4Ifa>bThenc=a:a=b:b=cEndIfIfa>cThenc=a:a=c:c=aEndIfIfb>cThenc=b:b=c:c=bEndIfPrinta;b;cEndSub2.分析以下程序，写出运行后的输出结果。PrivateSubForm_Click()DimsAsString,iAsInteger,nAsIntegers="ab12cd34ef"n=0Fori=1ToLen(s)IfMid(s,i,1)Like"[0-9]"Thenn=n+1EndIfNextiPrint"数字字符个数：";nEndSub3.分析以下程序，写出运行后的输出结果。PrivateSubCommand1_Click()Dimarr()AsInteger,iAsInteger,jAsInteger,tAsIntegerarr=Array(5,3,8,1,6)Fori=0To3Forj=0To3iIfarr(j)>arr(j+1)Thent=arr(j)arr(j)=arr(j+1)arr(j+1)=tEndIfNextjNextiFori=0To4Printarr(i);NextiEndSub四、编程题（共26分）1.（12分）设计一个VB程序，实现以下功能：在文本框Text1中输入一个正整数n，点击命令按钮Command1后，在文本框Text2中显示1到n之间所有能被3整除但不能被5整除的数的和。要求：（1）包含必要的界面元素（标签、文本框、命令按钮）；（2）编写Command1的Click事件代码；（3）处理用户输入非数字的情况（提示"请输入有效正整数"）。2.（14分）编写一个VB程序，实现学提供绩管理功能：（1）从D盘根目录下的score.txt文件中读取学提供绩（每行格式：姓名,数学,英语）；（2）计算每个学生的平均分（保留2位小数）；（3）将结果写入D盘根目录下的result.txt文件（格式：姓名,数学,英语,平均分）；（4）要求使用顺序文件操作，包含错误处理（如文件不存在时提示）。答案一、单项选择题1.B2.B3.A4.A5.B6.D7.A8.C9.B10.B11.A12.B13.B14.C15.D二、填空题1.9（计算过程：2^3=8，38=24，24Mod10=4，5+4=9）2.10（x>y为True，返回x+y=10）3.BackStyle（设置为0）4.Dimarr(9)AsInteger或Dimarr(0To9)AsInteger5.9（k=1→m=1；k=3→m=4；k=5→m=9；k=7退出循环）6.KeyPress7.List1.RemoveItem28.11=112=213=3；21=222=423=6（注意分号连接不换行）9.Input三、程序分析题1.输出结果：234解析：第一个If条件a>b（2>3）不成立；第二个If条件a>c（2>4）不成立；第三个If条件b>c（3>4）不成立，变量未交换，保持原值。2.输出结果：数字字符个数：4解析：字符串"ab12cd34ef"中数字字符为'1','2','3','4'，共4个。3.输出结果：13568解析：冒泡排序过程：第一轮排序后数组为3,5,1,6,8；第二轮为3,1,5,6,8；第三轮为1,3,5,6,8；第四轮无交换，最终排序完成。四、编程题1.界面设计：标签Label1（Caption="输入正整数n："）文本框Text1（用于输入n）标签Label2（Caption="符合条件的和："）文本框Text2（用于显示结果）命令按钮Command1（Caption="计算"）Command1_Click事件代码：PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,sumAsIntegersum=0'输入验证IfNotIsNumeric(Text1.Text)OrText1.Text<=0ThenMsgBox"请输入有效正整数"Text1.Text=""Text1.SetFocusExitSubEndIfn=Val(Text1.Text)Fori=1TonIfiMod3=0AndiMod5<>0Thensum=sum+iEndIfNextiText2.Text=sumEndSub2.程序代码：PrivateSubCommand1_Click()DimnameAsString,mathAsSingle,englishAsSingle,avgAsSingleDimstrLineAsString,strResultAsStringOnErrorGoToerrHandler'错误处理'读取文件Open"D:\score.txt"ForInputAs1Open"D:\result.txt"ForOutputAs2DoWhileNotEOF(1)LineInput1,strLine'分割字符串name=Split(strLine,",")(0)math=Val(Split(strLine,",")(1))english=Val(Split(strLine,",")(2))avg=(math+english)/2'格式化输出（保留2位小数）strResult=name&","&mat