延边大学计算机VB期末考试整理填空解决方案.doc

一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框（Picturel），应执行的语句是_____。 Picture1.Picture=LoadPicture(pic2.gif) picture1.picture=loadpicture(pic2.gif) 组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和_____。 下拉式组合框 VB6.0识别对象靠的是对象的_____属性。 NAME Name name 为了使列表框中的项目分为多列显示，需要设置的属性是_____。 COLUMNS columns Columns 当用_____方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。 APPEND append Append 关闭所有已经打开的文件，应使用语句_____。 CLOSE close Close 如果要将变量a在过程中定义为静态的整型变量，应使用的语句是_____。 static a% static a as integer Static a% Static a As Integer MsgBox函数的返回值的类型为_____。 数值型 文本框的默认属性是_____。 Text text TEXT 标签控件的默认属性是_____。 CAPTION Caption caption 【程序说明】窗体上已建立命令按钮Command1（开始）、Command2（结束）和文本框Text1， Text1中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始” 命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上 输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。 Private Sub Command1_Click() Dim n As Byte, i As Byte, j As Byte, p As Byte Dim a(100) As String * 1, str1 As String, t As String str1 = Text1.Text: n = Len(str1) For i = 1 To n:_____: Next i For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then_____ Next j If p i Then t = a(i):_____: a(p) = t Next i For i = 1 To n: Print a(i);: Next i _____ Command1.Enabled = False End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Command2.Enabled = False End Sub 【空 1】 错误 【学生答案】 【参考答案】 False ============================================================ 【空 2】 错误 【学生答案】 【参考答案】 Date ============================================================ 【空 3】 错误 【学生答案】 【参考答案】 CommonDialog1.Color ============================================================ 【空 4】 错误 【学生答案】 【参考答案】 m1 ============================================================ 【程序说明】文件c:\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后， 查找文件中姓名与输入姓名相同的记录，找到则删除该记录。 Private Sub Command1_Click() Dim bs As String,cs As String Open c:\a1.dat For Input As #1 Open temp.dat _____ bs = InputBox(输入学生姓名) Do While Not Eof(1) Line Input #1, cs if InStr(cs, Trim(bs)) = _____Then print #2,cs Loop