浙江电大 3309019 Visual Basic程序设计#（省） 网上在线形考作业[答案]

浙江电大 3309019 Visual Basic程序设计#（省） 网上在线形考作业

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

正确答案:B

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

正确答案:A

3.ADO数据模型中一般可通过Connection对象的（ ）方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
A、ExecuteB、UpdataC、InsertD、Open

正确答案:C

4..为您提供优质服务Visual Basic程序开发有三种模式，即设计模式、运行模式和( )模式。
A、设计B、运行C、中断D、调试

正确答案:A

5.如果要在程序中显示一个弹出菜单，需调用（ ）方法。
A、PrintB、MoveC、RefreshD、PopupMenu

正确答案:D

6.要使标签能透出窗体的背景，应设置标签的（ ）属性。
A、BackStyleB、BorderStyleC、AppearanceD、BackColor

正确答案:A

7..为您提供优质服务将1 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

正确答案:A

46..为您提供优质服务为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（ ）。
A、MMControl1.Visible= FalseB、MMControl1.Visible= TrueC、MMControl1.RecordVisible= FalseD、MMControl1.RecordVisible= True

正确答案:A

47.在Visual Basic语言中有三种形式的循环结构。其中，若要求先判断循环进行的条件，可使用( )循环或Do循环。
A、ForB、DoC、NextD、While

正确答案:A

48.Visual Basic中的程序错误类型主要有编译错误、( )错误和逻辑错误三种。
A、编译B、运行C、实时D、逻辑

正确答案:C

49..为您提供优质服务显示和输入文本时，如果仅需要让应用程序在窗体中显示文本信息，可使用（ ）控件。
A、LabelB、TextC、CommandD、TextBox

正确答案:A

50.Visual Basic应用程序即工程文件通常由三类模块组成，即( )模块、标准模块和类模块。
A、窗体B、标准C、框架D、类

正确答案:D

51.检测文件是否结束的函数是（ ）。
A、LOF()B、Len()C、EOF()D、Chr()

正确答案:A

52..为您提供优质服务、/、Mod、*四个算术运算符中，优先级别最低的是（ ）。
A、B、/C、ModD、*

正确答案:C

53.对驱动器列表框来说，每次重新设置驱动器列表框的( )属性时，都将引发Change事件。
A、PathB、DriveC、CaptionD、Text

正确答案:C

正确答案:D

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

正确答案:A

55..为您提供优质服务填空如下程序，实现猜数字功能。先产生一个值为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

正确答案:D

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

正确答案:C

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能干什么”具体内容。

正确答案:B

58..为您提供优质服务对目录列表框来说，当( )属性值改变时，将引发Change事件。
A、PathB、DriveC、CaptionD、Text

59.程序运行时，驱动器列表框下列（ ）属性能返回磁盘驱动器的名称。
A、DriveB、DriveNameC、ChgdriveD、Drives

正确答案:D

60.Visual Basic中设置断点的按键是F9，逐语句调试的语句是( )。
A、F1B、F9C、F8D、F7

正确答案:A

61..为您提供优质服务某计时器控件的interval属性为0时，表示（ ）。
A、计时器关闭计时B、Timer事件的间隔时间为0秒C、Timer事件的间隔时间为0毫秒D、计时器启动计时

正确答案:D

62.如果在图片框上使用绘图方法绘制一个圆，则图片框的（ ）属性决定了该圆的颜色。
A、BackColorB、ForeColorC、FillColorD、DrawStyle

正确答案:A

63.在Visual Basic中，数组默认的下标下界是( ) 。
A、0B、1C、-1D、不确定

正确答案:A

64..为您提供优质服务在Visual Basic中，一般（ ）属性用来设置字体的颜色。
A、FontColorB、ForeColorC、BackColorD、ShowColor

正确答案:D

65.Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是( )。
A、整个工程中所有的模块和所有的过程B、窗体内的所有过程C、其所在的过程D、模块内的所有过程

正确答案:A

正确答案:D

66.在Visual Basic中，参数通过 ( )两种方式传送。
A、按值传递和按空间传递B、按值传递和按地址传递C、按类型传递和按地址传递D、按次序传递和按数量传递

正确答案:D

67..为您提供优质服务在Windows Media Player控件中，决定播放文件是否全屏的属性是（ ）。
A、FullScreenB、FullC、ScreenD、stretchToFit

正确答案:D

68.在设计菜单时，为了创建分隔栏，要在（ ）中输入字符（-）。
A、名称栏B、标题栏C、索引栏D、显示区

正确答案:B

69.Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是( )。
A、整个工程中所有的模块和所有的过程B、窗体内的所有过程C、其所在的过程D、模块内的所有过程

70..为您提供优质服务执行语句Open “CStud.txt” For Input As #2后，系统（ ）。
A、将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中B、某个磁盘文件的内容写入C盘当前文件夹下名C、打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容D、在C盘当前文件夹下建立名为Stud. txt的顺序文件

正确答案:B

71.数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的 ( ) 。
A、字符串型B、字符型C、变体型D、整型

正确答案:D

72.RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ ）属性。
A、Max和MinB、Smallchange和 LargeChC、Scroll和ChangeD、Value

正确答案:C

73..为您提供优质服务填空如下程序，使用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

正确答案:D

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: xl.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)

正确答案:C

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、求数组元素个数的函数。

正确答案:B

浙江电大 3309019 Visual Basic程序设计#（省） 网上在线形考作业国开电大历年参考题目如下：

浙江电大 3309019 Visual Basic程序设计#（省） 网上在线形考作业[答案]相关练习题：
西交《外科护理学（专升本）》在线作业-0002

喘证的临床表现应除外哪一项：( )

细分散钻井液的缺点为（ ）。

小学生心理健康教育的基本原则为：

（ ）人类信息化发展阶段包括：

东财《毛泽东思想概论》在线作业一-0025

 用于期权激励的股份支付协议，应在行权日和出售日之间设立禁售期，国有控股上市公司的禁售期不得低于两年  

康复护理是康复医学的一个重要分支，也是护理学的一个重要分支。

（2.5分） 对用于职业健康安全绩效测量和监视的设备，必须进行校准和维护。

关系数据库中，关系称为二维表，元组称为记录,属性称为域。

PWM系统开关频率高，电流容易连续，但谐波较多。（ ）

根据《公约》规定，发价撤销的时间仅限于（ ）

厂商的垄断地位保证了该厂商永远可以获得超额利润。

在与人的身心健康有关的因素中，（）是最基本的因素，是核心部分。

中间商在微观环境中属于( )。