【电大作业代做】浙江电大 3309019 Visual Basic程序设计#(省) 网上在线形考作业

通过580zuoye

【电大作业代做】浙江电大 3309019 Visual Basic程序设计#(省) 网上在线形考作业

1.在Visual Basic中,文件系统控件包括( )、目录列表框和文件列表框。三者协同操作可以访问任意位置的目录和文件,可以进行文件系统的人机交互管理。
A、文件夹列表框B、驱动器列表框C、目录列表框D、文件列表框
【答案】:B

2.有变量定义语句“Dim Str1,Str2 As String *10”,其中Str1变量的类型应为 ( ) 。
A、字符串型B、字符型C、变体型D、整型
【答案】:C

3.ADO数据模型中一般可通过Connection对象的( )方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
A、ExecuteB、UpdataC、InsertD、Open
【答案】:扫二维码加客服微信

4.580zuoye.com为您提供优质服务Visual Basic程序开发有三种模式,即设计模式、运行模式和( )模式。
A、设计B、运行C、中断D、调试
【答案】:扫二维码加客服微信

5.如果要在程序中显示一个弹出菜单,需调用( )方法。
A、PrintB、MoveC、RefreshD、PopupMenu
【答案】:扫二维码加客服微信

6.要使标签能透出窗体的背景,应设置标签的( )属性。
A、BackStyleB、BorderStyleC、AppearanceD、BackColor
【答案】:扫二维码加客服微信

7.580zuoye.com为您提供优质服务将11 or x<12B、x>1 And x<12C、1=< x<12D、x>1 x<12 【答案】:扫二维码加客服微信 8.按文件的存取方式,可将文件分为顺序文件、随机文件和( )文件。 A、顺序B、随机C、连续D、二进制 【答案】:扫二维码加客服微信 9.基本程序控制结构可以分为顺序结构、选择结构和( )结构3种。 A、选择B、转移C、顺序D、循环 【答案】:扫二维码加客服微信 10.580zuoye.com为您提供优质服务设List1为列表框控件,List1.Clear中的Clear是( )。 A、方法B、对象C、属性D、事件 【答案】:扫二维码加客服微信 11.下列可以用来存储图像可以供其它控件使用的控件是( )。 A、ToolBarB、StatursBarC、ImageListD、TreeView 【答案】:扫二维码加客服微信 12.文本框中选定的内容,由下列( )属性反映。 A、TextB、CaptionC、SeltextD、SelLenght 【答案】:扫二维码加客服微信 13.580zuoye.com为您提供优质服务在Visual Basic的转换函数中将数值转换为字符串的函数是( ) 。 A、Abs(x)B、Val(x)C、Str(x)D、Asc(x) 【答案】:扫二维码加客服微信 14.Visual Basic中文件的扩展名为( )的是类模块文件。 A、.frmB、.basC、.clsD、.vbp 【答案】:扫二维码加客服微信 15.改变驱动器列表框的Drive属性值将激活其( )事件。 A、ChangeB、ScrollC、KeyDownD、KeyUp 【答案】:扫二维码加客服微信 16.580zuoye.com为您提供优质服务填空如下程序,实现加法功能。其中第一操作数、第二操作数和计算结果文本框的名称分别定义为txtFirstNum、txtSecondNum和txtSum,“计算”命令按钮的名称定义为cmdSum。Private Sub cmdSum_Click()     (            )End Sub A、txtSum.Caption = Val(txtFirstNum.Caption) + Val(txtSecondNum.Caption)B、txtSum.Value = txtFirstNum.Value+ txtSecondNum.ValueC、txtSum.Value= txtFirstNum+ txtSecondNumD、txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text) 【答案】:扫二维码加客服微信 17.有以下3个数据表:学生表:student_info(student_id,student_name,student_sex,student_class),分别表示学号、姓名、性别、班级,各字段数据类型都是文本。课程表:course_info(course_ID ,course_name ,course_credit),分别表示课程号、课程名、学分,课程号、课程名为文本类型,学分为数字类型。成绩表:mark_info(student_ID, course_ID,mark),分别表示学号、课程号、成绩,其中学号、课程号为文本类型,mark为数字类型。写出SQL语句:统计出各个班级的人数。(                            ) A、Select student_class from student_infoB、Select student_class ,count(*) from student_infoC、Select count(*) from student_infoD、Select student_class ,count(*) from student_info group by student_class 【答案】:扫二维码加客服微信 18.有以下3个数据表:学生表:student_info(student_id,student_name,student_sex,student_class),分别表示学号、姓名、性别、班级,各字段数据类型都是文本。课程表:course_info(course_ID ,course_name ,course_credit),分别表示课程号、课程名、学分,课程号、课程名为文本类型,学分为数字类型。成绩表:mark_info(student_ID, course_ID,mark),分别表示学号、课程号、成绩,其中学号、课程号为文本类型,mark为数字类型。写出SQL语句:查询出学号为“95020”所选修的课程名和成绩,以及姓名。(                       ) A、Select 姓名,课程名,成绩from student_info, course_info, mark_infoB、Select student_name as 姓名, course_name as 课程名, mark as成绩from student_info, course_info, mark_info where student_info. student_id = mark_info. student_id and course_info. course_ID = mark_info. course_IDand student_info. student_id ='95020'C、Select student_name, course_name, mark from student_info, course_info, mark_info where student_infoD、Select student_name, course_name, mark from student_info, course_info, mark_info where student_info. student_id = mark_info. student_id and course_info. course_ID = mark_info. course_IDand student_info. student_id ='95020' 【答案】:扫二维码加客服微信 19.580zuoye.com为您提供优质服务阅读以下程序,写出其功能。Public Function Max_Mark(MarkArray() As Single) As Single    Dim sngMax As Single , i As Integer , n As Integer   sngMax = 0   n = UBound(MarkArray)    For i = 0 To n      If MarkArray(i) > sngMax Then sngMax = MarkArray(i)    Next i   Max_Mark = sngMax End Function
A、求数组元素的平均值函数。B、求数组元素的最大值函数。C、求数组元素的和函数。D、求数组元素个数的函数。
【答案】:扫二维码加客服微信

20.在多媒体控件(MMControl)中,DeviceType属性用于设置多媒体设备的类型,如果将要播放的文件是CD歌曲,应将DeviceType属性设置为( )。
A、DigitalVideoB、WaveAudioC、AVIVideoD、CDAudio
【答案】:扫二维码加客服微信

21.使用ADO模型时,建立Recordset和Connection对象连接的属性是( )。
A、ConnectionB、ActiveConnectionC、ConnectionStringD、ConnectionTimeout
【答案】:扫二维码加客服微信

22.580zuoye.com为您提供优质服务以下语句的输出结果是( )。Print Format (32548.5,“000,000.00”)
A、32548.5B、32,548.5C、032,548.50D、32,548.50
【答案】:扫二维码加客服微信

23.数组的类型可以是基本数据类型,也可以是用户自定义的记录类型。数组中各个元素在定义时如果是数值类型就被默认初始化为( ) 。
A、1B、0C、空D、不确定
【答案】:扫二维码加客服微信

24.Visual Basic中的程序错误类型主要有编译错误、实时错误和( )错误三种。
A、编译B、运行C、实时D、逻辑
【答案】:扫二维码加客服微信

25.580zuoye.com为您提供优质服务执行Form1.Scale(0, 10)-(10, -10)语句后,Form1窗体坐标系x轴和y轴的正方向是( )。
A、向右和向上B、向左和向下C、向右和向下D、向左和向上
【答案】:扫二维码加客服微信

26.为了在运行时把当前路径下的图形文件装入图片框Picture1,所使用的语句为( )。
A、Picture1. Picture = LoadPrcture(“”)B、Picture1. Picture = LoadPrcture(“\”)C、Picture1. Picture = LoadPrcture(“..\”)D、Picture1. Picture = LoadPrcture()
【答案】:扫二维码加客服微信

27.有变量定义语句“Dim Str1,Str2 As String *10”,其中Str2变量的类型应为 ( ) 。
A、字符串型B、字符型C、变体型D、整型
【答案】:扫二维码加客服微信

28.580zuoye.com为您提供优质服务每创建一个顶级菜单,它的下面最多可以有( )级子菜单。
A、1B、3C、5D、6
【答案】:扫二维码加客服微信

29.在Visual Basic语言中有三种形式的循环结构。其中,若要求先判断循环进行的条件,可使用While循环或 ( )循环。
A、ForB、DoC、NextD、While
【答案】:扫二维码加客服微信

30.将数字字符串转换为数值的函数是 ( ) 。
A、Abs(x)B、Val(x)C、Str(x)D、Asc(x)
【答案】:扫二维码加客服微信

31.580zuoye.com为您提供优质服务将字符转换为相应的ASCII码的函数是( ) 。
A、Abs(x)B、Val(x)C、Str(x)D、Asc(x)
【答案】:扫二维码加客服微信

32.在窗体Form1的Click事件过程中有以下语句:Label1.Caption=”Visual Basic”若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为( )。
A、Label和LabelB、Label1和Label1C、Label1和Visual BasicD、Label和Caption
【答案】:扫二维码加客服微信

33.在Visual Basic中,文件系统控件包括驱动器列表框、( )和文件列表框。三者协同操作可以访问任意位置的目录和文件,可以进行文件系统的人机交互管理。
A、文件夹列表框B、驱动器列表框C、目录列表框D、文件列表框
【答案】:扫二维码加客服微信

34.580zuoye.com为您提供优质服务在Visual Basic中,每个菜单项都是一个图形控件对象,所以它们也有一些与其他控件类似的属性,就标题相当于其他控件的Caption属性,而( )就相当于Name属性。
A、索引B、名称C、标题D、外观
【答案】:扫二维码加客服微信

35.利用列表框实现姓名的增删。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate,列表框和文本框的名称为默认。要求从文本框输入姓名,然后按“添加”按钮把姓名添加到列表框中;当选择列表框中某一项时,按“删除”按钮,从列表框中删除;当选择列表框中某一项时,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。Private Sub cmdAdd_Click()     List1.AddItem Text1.Text     Text1.Text = “”End SubPrivate Sub cmdDel_Click()     List1.RemoveItem List1.ListIndex     Text1.Text = “”End SubPrivate Sub cmdUpdate_Click()     If cmdUpdate.Caption = “修改” Then          (      )          cmdUpdate.Caption = “确认修改”     Else          List1.List(List1.ListIndex) = Text1.Text          cmdUpdate.Caption = “修改”          Text1.Text = “”     End IfEnd Sub
A、Text1.Text =List1.ListB、List1.List(List1.ListIndex)=Text1.TextC、Text1.Text=List1.List(List1.ListIndex)D、Text1.Text =List1.List(List1.ListIndex)
【答案】:扫二维码加客服微信

36.有以下3个数据表:学生表:student_info(student_id,student_name,student_sex,student_class),分别表示学号、姓名、性别、班级,各字段数据类型都是文本。课程表:course_info(course_ID ,course_name ,course_credit),分别表示课程号、课程名、学分,课程号、课程名为文本类型,学分为数字类型。成绩表:mark_info(student_ID, course_ID,mark),分别表示学号、课程号、成绩,其中学号、课程号为文本类型,mark为数字类型。写出SQL语句:查询所有学生的基本信息,使用中文作为查询结果的各字段的名称。(                       )
A、Select student_id as 学号, student_name as 姓名, student_sex as 性别, student_class as 班级 from student_infoB、Select 学号, 姓名,性别,班级 from student_infoC、Select student_id as 学号, student_name as 姓名, student_sex as 性别, student_class as 班级D、Select * from student_info
【答案】:扫二维码加客服微信

37.580zuoye.com为您提供优质服务填空如下程序。设程序初始界面有“学习目的”、“学习方法”和“退出”3个命令按钮,1个标签控件,其中“学习方法”命令按钮的名称定义为cmdWay,标签控件的名称定义为lblContent。使得单击“学习方法”按钮,标签控件显示“从实际应用程序的开发过程中学习VB”。Private Sub (   )()     lblContent.Caption= “从实际应用程序的开发过程中学习VB”End Sub
A、Command1_ClickB、cmdWay_DblClickC、cmdWay_ClickD、lblContent_Click
【答案】:扫二维码加客服微信

38.阅读以下程序,写出其功能。Private Sub changecolor()   Dim r As Integer , g As Integer, b As Integer   Dim x As Long   ‘ hsbRed、hsbGreen和hsbBlue为水平滚动条   hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0    hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255    r = hsbRed.Value    g = hsbGreen.Value    b = hsbBlue.Value    x = RGB(r, g, b)    frmMain.BackColor = x End Sub
A、用红色、绿色、蓝色三个滚动条调节窗体前景色的过程。B、用红色、绿色、蓝色三个滚动条调节窗体字体颜色的过程。C、用红色、绿色、蓝色三个滚动条调节窗体底色的过程。D、用窗体底色调节红色、绿色、蓝色三个滚动条的过程。
【答案】:扫二维码加客服微信

39.在VB中断模式下,可用调试窗口监视表达式和变量的值,其中在( )窗口中可以直接键入命令以显示命令所请求的信息。
A、立即B、监视C、本地D、中断
【答案】:扫二维码加客服微信

40.580zuoye.com为您提供优质服务将图片框PictureBox的AutoSize属性设置成( )时,图片框能自动调整大小,以适应其中的图片。
A、FalseB、0C、TureD、1
【答案】:扫二维码加客服微信

41.函数Int(Rnd*10)是在( )范围内的整数。
A、(0, 10)B、(0,10]C、[0, 10)D、[0, 10]
【答案】:扫二维码加客服微信

42.若要把“XXX”添加到列表框List1中的第三项,则可执行语句( )。
A、List1.AddItem “XXX”, 3B、List1.AddItem “XXX”, 2C、List1.AddItem 3,”XXX”D、List1.AddItem 2,”XXX”
【答案】:扫二维码加客服微信

43.580zuoye.com为您提供优质服务执行指令“Line (200,200) – (500,500)”后,CurrentX=( )。
A、200B、500C、300D、700
【答案】:扫二维码加客服微信

44.可通过( )属性判断ListBox列表框控件的项目总数目。
A、ListIndexB、ListTextC、ListcountD、随机数
【答案】:扫二维码加客服微信

45.已知三个变量
A、B、C,判断A、B、C能否构成三角形的逻辑表达式为( )。A、A > B And B > C And A > CB、A + C > B And A + B > C And B + C >C、A + C > B Or A + B > C Or B + C > AD、A + C > B And A + B > C Or B + C >=A
【答案】:扫二维码加客服微信

46.580zuoye.com为您提供优质服务为了使多媒体控件(MMControl)中的录制按钮不显示,应添加代码( )。
A、MMControl1.Visible= FalseB、MMControl1.Visible= TrueC、MMControl1.RecordVisible= FalseD、MMControl1.RecordVisible= True
【答案】:扫二维码加客服微信

47.在Visual Basic语言中有三种形式的循环结构。其中,若要求先判断循环进行的条件,可使用( )循环或Do循环。
A、ForB、DoC、NextD、While
【答案】:扫二维码加客服微信

48.Visual Basic中的程序错误类型主要有编译错误、( )错误和逻辑错误三种。
A、编译B、运行C、实时D、逻辑
【答案】:扫二维码加客服微信

49.580zuoye.com为您提供优质服务显示和输入文本时,如果仅需要让应用程序在窗体中显示文本信息,可使用( )控件。
A、LabelB、TextC、CommandD、TextBox
【答案】:扫二维码加客服微信

50.Visual Basic应用程序即工程文件通常由三类模块组成,即( )模块、标准模块和类模块。
A、窗体B、标准C、框架D、类
【答案】:扫二维码加客服微信

51.检测文件是否结束的函数是( )。
A、LOF()B、Len()C、EOF()D、Chr()
【答案】:扫二维码加客服微信

52.580zuoye.com为您提供优质服务\、/、Mod、*四个算术运算符中,优先级别最低的是( )。
A、\B、/C、ModD、*
【答案】:扫二维码加客服微信

53.对驱动器列表框来说,每次重新设置驱动器列表框的( )属性时,都将引发Change事件。
A、PathB、DriveC、CaptionD、Text
【答案】:扫二维码加客服微信

54.有以下3个数据表:学生表:student_info(student_id,student_name,student_sex,student_class),分别表示学号、姓名、性别、班级,各字段数据类型都是文本。课程表:course_info(course_ID ,course_name ,course_credit),分别表示课程号、课程名、学分,课程号、课程名为文本类型,学分为数字类型。成绩表:mark_info(student_ID, course_ID,mark),分别表示学号、课程号、成绩,其中学号、课程号为文本类型,mark为数字类型。写出SQL语句:修改学号为“95020”,课程号为“A001”的成绩为85。(                         )
A、Update mark_info set mark=85 where student_ID =’95020′ or course_ID =’A001’B、Update mark_info set mark=85C、Update mark_info set mark=85 where student_ID =’95020’ and course_ID =’A001’D、Update mark_info set mark=85 where student_ID =95020 and course_ID =A001
【答案】:扫二维码加客服微信

55.580zuoye.com为您提供优质服务填空如下程序,实现猜数字功能。先产生一个值为1至1000的随机数,由用户来猜这个数,并提示用户猜的数是否太大或太小,设输入文本框的名称定义为TxtAnswer,神秘的数、评价标签控件的名称定义为lblComment和lblNum,“确定”命令按钮的名称定义为cmdOk。Dim intNum As Integer    ‘用于存放“神秘的数”Dim intCount As Integer   ‘用于猜数计数Private Sub cmdOk_Click()     (       )     If Val(txtAnswer.Text) = intNum Then    ‘猜对          lblComment.Caption = “猜对了!你一共猜了” & intCount & “次”          lblNum.Caption = intNum     ElseIf Val(txtAnswer.Text) > intNum Then          lblComment.Caption = “太大了!”        Else           lblComment.Caption = “太小了!”      End IfEnd SubPrivate Sub Form_Load()     Randomize     intNum =Int(Rnd * 1000 + 1)End Sub
A、intCount = intCount + 1B、intCount =0C、intCount = 1D、intCount =intNum
【答案】:扫二维码加客服微信

56.填空如下程序,利用列表框实现姓名的增删。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate,列表框和文本框的名称为默认。要求从文本框输入姓名,然后按“添加”按钮把姓名添加到列表框中;当选择列表框中某一项时,按“删除”按钮,从列表框中删除;当选择列表框中某一项时,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。Private Sub cmdAdd_Click()     (      )     Text1.Text = “”End SubPrivate Sub cmdDel_Click()     List1.RemoveItem List1.ListIndex     Text1.Text = “”End SubPrivate Sub cmdUpdate_Click()     If cmdUpdate.Caption = “修改” Then          Text1.Text = List1.List(List1.ListIndex)          cmdUpdate.Caption = “确认修改”     Else          List1.List(List1.ListIndex) = Text1.Text          cmdUpdate.Caption = “修改”          Text1.Text = “”     End IfEnd Sub
A、List1.ListIndex=List1.ListIndex+1B、List1.AddItem List1.ListIndexC、List1.AddItemD、List1.AddItem Text1.Text
【答案】:扫二维码加客服微信

57.阅读以下程序,写出其功能。Private Sub cmdWhat_Click()   ‘ cmdWat为命令按钮,lblHelloVB为标签,txtHelloVB为文本框   lblHelloVB .Caption = “VB能干什么”   txtHelloVB = ” VB能快速实现用户界面的设计、” _   + “文字和图形图像的处理以及数据库的使用,能开发多媒体、数据库、” _   + “网络和图形等多方面的应用程序;可以开发个人使用或小组” _   + “使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。”End Sub
A、单击cmdWhat按钮,显示“VB能干什么”具体内容。B、单击cmdWhat按钮,隐藏“VB能干什么”具体内容。C、单击窗体,显示“VB能干什么”具体内容。D、双击击cmdWhat按钮,显示“VB能干什么”具体内容。
【答案】:扫二维码加客服微信

58.580zuoye.com为您提供优质服务对目录列表框来说,当( )属性值改变时,将引发Change事件。
A、PathB、DriveC、CaptionD、Text
【答案】:扫二维码加客服微信

59.程序运行时,驱动器列表框下列( )属性能返回磁盘驱动器的名称。
A、DriveB、DriveNameC、ChgdriveD、Drives
【答案】:扫二维码加客服微信

60.Visual Basic中设置断点的按键是F9,逐语句调试的语句是( )。
A、F1B、F9C、F8D、F7
【答案】:扫二维码加客服微信

61.580zuoye.com为您提供优质服务某计时器控件的interval属性为0时,表示( )。
A、计时器关闭计时B、Timer事件的间隔时间为0秒C、Timer事件的间隔时间为0毫秒D、计时器启动计时
【答案】:扫二维码加客服微信

62.如果在图片框上使用绘图方法绘制一个圆,则图片框的( )属性决定了该圆的颜色。
A、BackColorB、ForeColorC、FillColorD、DrawStyle
【答案】:扫二维码加客服微信

63.在Visual Basic中,数组默认的下标下界是( ) 。
A、0B、1C、-1D、不确定
【答案】:扫二维码加客服微信

64.580zuoye.com为您提供优质服务在Visual Basic中,一般( )属性用来设置字体的颜色。
A、FontColorB、ForeColorC、BackColorD、ShowColor
【答案】:扫二维码加客服微信

65.Visual Basic中变量依据其作用域不同可以分为过程级变量(局部变量)、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量,它的作用域就是( )。
A、整个工程中所有的模块和所有的过程B、窗体内的所有过程C、其所在的过程D、模块内的所有过程
【答案】:扫二维码加客服微信

66.在Visual Basic中,参数通过 ( )两种方式传送。
A、按值传递和按空间传递B、按值传递和按地址传递C、按类型传递和按地址传递D、按次序传递和按数量传递
【答案】:扫二维码加客服微信

67.580zuoye.com为您提供优质服务在Windows Media Player控件中,决定播放文件是否全屏的属性是( )。
A、FullScreenB、FullC、ScreenD、stretchToFit
【答案】:扫二维码加客服微信

68.在设计菜单时,为了创建分隔栏,要在( )中输入字符(-)。
A、名称栏B、标题栏C、索引栏D、显示区
【答案】:扫二维码加客服微信

69.Visual Basic中变量依据其作用域不同可以分为过程级变量(局部变量)、模块级变量和全局变量3类。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是( )。
A、整个工程中所有的模块和所有的过程B、窗体内的所有过程C、其所在的过程D、模块内的所有过程
【答案】:扫二维码加客服微信

70.580zuoye.com为您提供优质服务执行语句Open “C:Stud.txt” For Input As #2后,系统( )。
A、将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中B、某个磁盘文件的内容写入C盘当前文件夹下名C、打开C盘当前文件夹下名为Stud.txt的文件,用来读取文件内容D、在C盘当前文件夹下建立名为Stud. txt的顺序文件
【答案】:扫二维码加客服微信

71.数组的类型可以是基本数据类型,也可以是用户自定义的记录类型。如果省略类型说明,数组会被设置为默认的 ( ) 。
A、字符串型B、字符型C、变体型D、整型
【答案】:扫二维码加客服微信

72.RGB函数通过红、绿、蓝三基色混合产生某种颜色,若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置滚动条的( )属性。
A、Max和MinB、Smallchange和 LargeChC、Scroll和ChangeD、Value
【答案】:扫二维码加客服微信

73.580zuoye.com为您提供优质服务填空如下程序,使用ADO对象中的Connection对象连接SQL Server数据库。Public ADOcn As ConnectionPublic Sub Main()    Dim strSqlServer As String    strSqlServer=”Provider=SQLOLEDB;Server=(local);User ID=sa;Password=sa; Database=XS”    If ADOcn Is Nothing Then         Set ADOcn = New Connection         (        )                End IfEnd Sub
A、Set ADOcn = New ConnectionB、ADOcn.Open strSqlServerC、ADOcn.OpenD、ADOcn strSqlServer
【答案】:扫二维码加客服微信

74.填空如下程序,实现通信录查询功能。设“查找”按钮的名称定义为cmdFindname,查找输入名称和结果文本框的名称分别定义为txtName和txtCount,记录条数标签的名称定义为lblCount。Type Lxr     intBh As Integer              ‘编号     strXm As String * 8           ‘姓名     strDh As String * 11           ‘电话     strDz As String * 30           ‘地址End TypePublic user As LxrPrivate Sub cmdFindname_Click()     Dim i As Integer, intCount As Integer, intRecordNum As Integer     Dim strComp1 As String, strComp2 As String     txtCount.Text = ” 编号      姓名       电话        地址    ” + vbCrLf      intCount = 0     Open “d:\txl.txt” For Random As #1 Len = Len(user)     (          )     For i = 1 To intRecordNum          Get #1, i, user          strComp1 = Trim(txtName.Text)          strComp2 = Trim(Replace(user.strXm, Chr(0), “”))          ‘ 比较输入的姓名和文本中的姓名是否一致          If StrComp(strComp1, strComp2) = 0 Then               intCount = intCount + 1               Get #1, i, user               msg = Str(user.intBh) + ”   ” + user.strXm + user.strDh + user.strDz               msg = Replace(msg, Chr(0), ” “)               txtCount.Text = txtCount.Text + msg + Chr(13) + Chr(10)          End If     Next i     Close #1     lblCount.Caption = “一共找到” + Str(intCount) + “条记录”     If intCount = 0 Then          MsgBox “没有该记录”, vbInformation, “提示”     End IfEnd Sub
A、intRecordNum =Len(user)/ LOF(1)B、intRecordNum = LOF(1) / Len(user)C、intRecordNum = LOF(1) / Len(1)D、intRecordNum = LOF(user) / Len(user)
【答案】:扫二维码加客服微信

75.阅读以下程序,写出其功能。Public Function Avg_mark(MarkArray() As Single) As Single    Dim sngSum As Single, i As Integer , n As Integer   sngSum = 0   n = UBound(MarkArray)    For i = 0 To n      sngSum = sngSum + MarkArray(i)    Next i   Avg_mark = sngSum / n End Function
A、求数组元素的平均值函数。B、求数组元素的最大值函数。C、求数组元素的和函数。D、求数组元素个数的函数。
【答案】:扫二维码加客服微信

关于作者

580zuoye administrator

专注于辅导国开电大、继续教育8年有余,欢迎合作共赢。