计算机模拟题1.docVIP

二．填空 1.窗体是用来存放_____的容器，窗体的left和top属性是相对_____对象的。 2.对象的标题文字的颜色是由_____属性决定的。 3. 语句Print Not 1015 And 85+2的输出结果为_____。 4. 用Dim c(2 to 5) As Integer 语句定义的数组占用_____个字节的内存空间。 5.要编写一个Visual Basic程序，该程序通过单选按钮来设置文本框中字体的颜色。 程序中用到的控件及其属性清单如表7-1所示。 表7-1 控件 名称（Name） 标题（Caption） 文本（Text） 文本框 Text1 无 “计算机等级考试” 单选按钮1 Option1 “红色” 无 单选按钮2 Option2 “绿色” 无 单选按钮3 Option3 “蓝色” 无 已知红、绿、蓝三种颜色分别用”vbRed”、”vbGreen”、”vbBlue”表示。 请在空白处填入适当的内容，将程序补充完整。 Private Sub Option1_Click() _____End Sub Private Sub Option2_Click() _____End Sub Private Sub Option3_Click() _____End Sub 6.程序说明】单击窗体后输出6～100之间所有整数的质数因子。 Private Sub pp( _____k As Integer) Dim i As Integer i = 2 While k 1 If _____= 0 Then Print i; _____ Else i = i + 1 End If Wend Print End Sub Private Sub Form_Click() For i = 6 To 100 : _____:Next i End Sub 有问题7.【程序说明】窗体上已建立命令按钮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 8. 读文件的_____语句从文件的当前位置起至换行符前的所有字符读入到字符串变量。 9.若控件Picture1中要显示C:盘Windows目录下的Cloud.bmp图片，则它的方法是_____。 10. 请写出在Text1、Text2中输入96、40后，单击Command1时窗体上的显示结果_____。 Private Sub Command1_Click() Dim a As Long,b As Long,r As Long a = Val(Text1.Text): b = Val(Text2.Text) Do While b 0 r = a Mod b: a = b: b = r Loop Print a End Sub 答案:1.控件 screen屏幕 2.forecolor 3. False 4. 8 5.Text1.ForeColor=vbRed Text1.ForeColor=vbGreen Text1.ForeColor=vbBlue 6.空 1 byeval ByeVal 【空 2】 k mod i k Mod I 【空 3】k = k \ i 【空 4】 c