首页 › 答案 › 标签 › VisualBasic程序设计

VisualBasic程序设计

105PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=6AndButton=2ThenPrintBBBBEndIfEndSub程序运行后，为在窗体上输出BBBB，应执行操作为（）。

106编写如下事件过程：PrivateSubForm_Keydown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrintAAAAEndIfEndSub程序运行后，为了在窗体上输出AAAA，应按下的鼠标键为（）。

107按文件中数据的编码方式，文件分为（）。

108关于顺序文件的描述，下面正确的是（）。

109文件号最大可取的值为（）。

110下面哪个函数可得到文件的长度（）。

111对语句Openc:TesttxtForOutputAs#2,以下错误叙述是（）。

112Print#1,STR$中的Print是（）。

113在随机文件操作中，定义记录类型的语句（）。

114在二进制文件操作中，读数据使用的语句（）。

115要获得当前驱动器，应使用驱动器列表框的属性为（）。

116VB60包括三种版本，分别为学习版、专业版和企业版。

117学习版是VB的基础版本，该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。

118专业版是为专业编程者提供了一整套功能完备的开发工具。

119企业版包含了专业版的全部功能，增加了自动化管理器、部件管理器、数据库管理工具、MicrosoftVisualSourceSafe面向工程版的控制系统等。

120下面选项中不能运行VisualBasic程序的操作是（）

121VisualBasic窗体设计器的主要功能是（）

122可视化编程的最大优点是（）

123一个工程文件可包含多种类型的文件，（）文件不包含其中。

124MicrosoftVisualBasic60包括三种版本，其中不包括（）

125在VisualBasic中，常量12#的数据类型是（）

126x是小于100的非负数，用正确的VisualBasic表达式是（）

127不能正确表示条件两个整型变量A和B之一为0，但不能同时为0的布尔表达式是（）

128Boolean类型的数据由（）字节组成

129表达式X+1>X是（）

130Inputbox（）函数的返回值类型为（）

131要使循环体至少执行一次，应使用（）循环

132程序的基本控制结构是（）

133以下Case语句中，能正确描述Y的绝对值大于7的是（）

134以下Case语句含有错误的是（）

135如下数组声明语句，正确的是（）

136如果有声明Optionbase1，Dimarr(3,3)，则该数组共有（）个元素

137下列有关控件数组的说法中，错误的是（）

138已知有数组声明：Dima(-1to3,2to5)asinteger，引用数组元素，正确的是（）

139假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是（）

140以下关于函数过程的叙述中，正确的是（）

141在VisualBasic应用程序中，以下正确的描述是（）

142单击命令按钮时，下列程序的执行结果为（）

143可以在窗体模块的通用声明段中声明（）

144选择工具箱中的Timer控件是指（）

145程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（）

146刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）

147在程序运行期问，如果拖动滚动条上的滚动块，则触发的滚动条事件是（）

148组合框控件可将（）组合成一个控件

149下拉式菜单和弹出式菜单都是在使用菜单编辑器时设计的。设计时：弹出式菜单中作为菜单的菜单项的Visible属性应设置为Flase，程序开始运行时不需要显示，在单击鼠标右键时会弹出；下拉式菜单中作为菜单名的菜单项的Visible属性应设置为True，程序运行时显示在窗体的顶部

150在显示字体对话框之前必须设置Flags属性，指示选用何种字体，否则将发生不存在字体错误。

151下列控件中，哪个是外部控件。

152通用对话框控件以图标的形式显示在窗体上，其大小不能改变，在程序运行时，控件会显示在窗体中。

153通过执行通用对话框的方法，可以将其表示为不同的对话框，方法ShowOpen，显示（）对话框。

154用Hide方法不但可以隐藏窗体，而且能够清除内存中的窗体

155对于多重窗体，需要单独保存每个窗体

156在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程

157如果一个工程包含有多个窗体和标准模块，不能把标准模块设置为启动对象

158一个工程中包含两个窗体，分别名为form1、form2，还有一个名为mdlfunc的标准模块。假定在form1、form2和mklfunc中分别建立了自定义过程，其定义格式为：

159根据文件的结构和访问方式，文件分为顺序文件、随机文件以及二进制文件。

160顺序文件在打开时必须指定对文件的操作方式（Input、Output、Append），打开后只能对文件按指定方式进行操作。每打开一次文件，可以进行上述各项的操作。

161顺序文件在以Input方式打开后，总是从文件的开头读文件，即使对最后一行内容进行操作也必须如此。

162随机文件只需要给出记录号，即可直接读取该记录的内容。

163顺序文件在以Output方式打开后，总是从文件的开头写。所以若是一个已经存放内容的文件，其中原有的内容也可以保留。

164智慧树知到《VisualBasic程序设计（吉林医药学院）》2023章节测试答案

165在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（）。

166（）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

167下列不是Visual Basic 文件的是（）。

168Visual Basic60集成环境的主窗口中不包括（）。

169在Visual Basic中，不能关闭的窗口是（）。

170Visual Basic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。

171执行下列语句后，V的值是（）。A=56789 V=Val（Mid（A，3，2））

172表达式4+567/8 Mod 4的值是（）。

173下列符号（）是Visual Basic中合法的变量名。

174在一行内写多条语句时，每个语句之间用（）来分隔。

175下列程序段的运行结果是（）。Dim A As Integer , B As Integer A = 15 B = 4 Print 4 + A B

176语句If x=1 Then y=1,下列说法正确的是（）。

177下面程序段执行结果为（）。 x = 5 : y = -6If not x > 0 Then x = y – 3 Else y = x + 3End IfPrint x – y; y – x

178编写如下事件过程: Private Sub Form_Click（） score=Int(Rnd10)+80 Select Case score Case Is< 60 a$=F Case 60 To 69 a$=D Case 70 To 79 a$=C Case 80 To 89 a$=B Case Else a$=A End Select Print a$ End Sub 程序运行后,单击窗体,则窗体上显示的内容是（）。

179循环结构For I%= -1 to –17 Step –2 共执行（）次。

180下列程序段的执行结果为（）。 a=0:b=1 Do a=a+b b=b+1 Loop While a<10 Print a;b

181有如下程序,运行后输出的结果是（）。j=0:n=0 Do While n<3 j=(j+1)*(j+2) n=n+1 Loop Print j;n

182下列的程序段执行后,x的值为（）。x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i

183执行下面程序段后，输出的结果为（）。 Dim m(5) As Integer s = 0 For i = 0 To 5 m(i) = 5 Next i For j = 0 To 5 s = s + m(j) Next j Print s

184下面程序：Private Sub Form_Click（） Dim a(100) As Integer For i = 1 To 10 j = i i a(j) = j Next i Print a(25)End Sub运行后，单击窗体，则输出的结果是（）。

185有如下语句：Option Base 1Private Sub Command1_Click（） Dim A(2, -1 To 1) As Integer ……End Sub 以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。

186有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为（）。

187下列程序的输出结果为（）。 Private Sub Command1_Click（） Dim a ReDim a(6) For j=1 To 5 a(j)=jj Next j Print a(a(2)a(3)-a(4)2)+a(5) End Sub

188执行下面程序段后，输出的结果为（）。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5)

189要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（）。 11 22 33 44 55 66 77 88 99

190假定有如下的Sub过程：Sub fun(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（） Dim a As Single Dim b As Single a = 6 b = 4 fun a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为（）。

191假定有以下函数过程：Function Fun(s As String) As String Dim s1 As String For i = 1 To Len(s) s1 = UCase(Mid(s, i, 1)) + s1 Next i Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（） Dim Str1 As String Dim Str2 As String Str1 = InputBox(请输入一个字符

192有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 y + z + 2 xEnd Function Private Sub Command1_Click（） Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a)End Sub该程序的运行结果是（）。

193有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer Dim quotients Do While y <> 0 quotients = x / y x = y y = quotients Loop Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（）。Private Sub Command1_Click（） Dim a As Integer Dim b As Inte

194以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a（） As Integer) As Integer Dim max% max = 1 For i = 2 To 10 If a(i) > a(max) Then max = i Next i maxval = max End Function Private Sub Command1_Click（） Dim x(1 To 10) As Integer For i = 1 To 10 x(i) = Int(Rnd（） 1

195在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a – b b = t + a Fun1 = t + bEnd Function Private Sub Command1_Click（） Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x – 1))), x – 1)End

196下面程序的运行结果为（）。Dim a%, b%, c%Sub p1(x%, y%) Dim c As Integer x = 2 x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click（） a = 2: b = 4: c = 6 Call p1(a, b) Call p2(a, b) Print a

197下面程序：Function a(x) Static b As Integer b = b + x ^ 2 Print bEnd Function Private Sub Command1_Click（） Dim c% c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（）。

198若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在（）中。

199要在图片框P1中打印字符串How Are You,应使用语句（）。

200窗体上有一公共对话框Commondialog1,和一个命令按钮Command1,当单击按钮时程序的功能是（）。Private Sub Command1_Click（） Commondialog1ShowColor End Sub

‹123 ›