计算机二级上机试题

〖第1题〗『程序填空』(1分)(题号:507) '【程序填空】

'题目： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的 ' 内容一个字符一个字符地读入文本框t俄xtTest中 请在【】处填入正确的内容 Private Sub Form_Click()

Dim InputData As String * 1 txtTest.Text = \

'**********SPACE**********

Open App.Path & \【input】 As #1 '**********SPACE********** Do While 【not】 EOF(1) Input #1, InputData '**********SPACE**********

txtTest.Text = txtTest.Text + 【inputdata】 Loop Close #1 End Sub 答案：

1). Input 2). Not 3). InputData

〖第2题〗『程序填空』(1分)(题号:50) '【程序填空】

''题目：从键盘上输入一串字符，以\结束，统计输入字符中的 ' 大、小写字母和数字的个数。 Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0

ch = InputBox(\请输入一个字符\'**********SPACE********** While 【ch】 Select Case ch Case \ n1 = n1 + 1

'**********SPACE**********

Case 【A to Z】 n2 = n2 + 1 Case \ n3 = n3 + 1 End Select

ch = InputBox(\请输入一个字符\'**********SPACE********** 【wend】

Print n1, n2, n3 End Sub 答案：

1). ch ★<>★ \ 2). \ 3). Wend

〖第3题〗『程序填空』(1分)(题号:62) '【程序填空】

''题目：输入任何一个英文字母x,若x的值 为\则 ' 显示x的大写字母；若x的值为\则显示x的 ' 小写字母；若为其它的值,则显示xa（如输入的X的值是 ' g，则显示ga）。 Private Sub Command1_Click() x = Text1.Text

'**********SPACE********** 【select case x】

Case \

Label1.Caption = UCase(x) '**********SPACE**********

Case 【”m”,”o”,” p”to “z”】 Label1.Caption = LCase(x) '**********SPACE********** 【case else】

Label1.Caption = Trim(x) + \ End Select End Sub 答案：

1). Select Case x 2). \ 3). Case Else

〖第4题〗『程序填空』(1分)(题号:65) '【程序填空】

'题目：根据输入的学习成绩,分别显示优秀(90分以上), 良好(75 ' 分以上),及格(60分以上),不及格几个等级。 Private Sub Command1_Click() x = Val(Text1.Text) If x >= 90 Then Print \优秀\'**********SPACE********** 【elself x>=75 then】 Print \良好\ElseIf x >= 60 Then '**********SPACE********** 【print “及格”】 '**********SPACE********** 【else】

Print \不及格\End If End Sub 答案：

1). ElseIf x >= 75 Then 或 ElseIf 75 <= x Then 2). print \及格\ 3). Else

〖第5题〗『程序填空』(1分)(题号:60) '【程序填空

'题目：输入任何一个英文字母x,

' 若x的值 为\则显示x的大写字母； ' 若x的值为\则显示x的小写字母；

' 若为其它的值,则显示xa（如输入的X的值是g，则显示ga）。 Private Sub Command1_Click() x = Text1.Text

'**********SPACE********** 【select case 】 '**********SPACE**********

Case 【“a”，“c”，“d” to“f”】 Label1.Caption = UCase(x) Case \

Label1.Caption = LCase(x)

Case Else

'**********SPACE**********

【label1.caption=trim（x）+“a”】 Ejd Select End Sub 答案：

1). Select Case x 2). \ 3). Label1.Capóion = ★Trim(x) ★+★ \〖第6题〗『程序填空』(1分)(题号:495) '【程序偫牺】

'题目：本程序将利用文本框txtInput输入的一行字符串中的所有 '字母加密，加密，加密结果在文本框txtCode中显示。加密方法如 '下：将每个字母的序号移动5个位置，即\，\， '\程序段如下： '请在【】处填兡正确的内容 Private Sub Form_Click()

Dil strInput As String * 70 '输入字符串 Dim Code AS String * 70 '加密结果 Dim strTemp As String * 1 '当前处理的字符 4 Dim i As Intager

Dim Length As Integer '字符串长度 Dim iAsc As In?ege2 '第i个字Ascii码 '**********SPACE********(*

【?】 叆字符串 i = 1 Code = \

'**********SPACE**********

【?】 '去掉字符串右边的空格，求真正的长度 Do While (i <= Length)

'**********SPACE**********

【?】 '取第i个字符 If (strTemp >= \ iAsc = Asc(strTemp) + 5

If iAsc > Asc(\ Code = Left$(Code, i - 1) + Chr$(iAsc) ElseIf (strTemp >= \ iAsc = Asc(strTemp) + 5

If iAsc > Asc(\

Code = Left$(Code, i - 1) + Chr$(iAsc) Else

Code = Left$(Code, i - 1) + strTemp End If i = i + 1 Loop

'**********SPACE**********

【?】 '显示加密结果 End Sub 答案:

'strInput = txtInput.Text 'Length = Len(RTrim(strInput)) 'strTemp = Mid(strInput, i, 1)

'txtCode.Text = Code txtCode = Code 答案：

1). strInput=txtInput 或 strInput=txtInput.Text 2). Length = Len(RTrim(strInput)) 3). strTemp = Mid(strInput, i, 1)

4). txtCode.Text = Code 或 txtCode = Code 〖第7题〗『程序填空』(1分)(题号:531) '【程序填空】

''题目：打印出 100-999 之间的所有水仙花数

' 如果一个数的 百位，十位，个位数的立方和等于这个数本身 ' 则这个数为水仙花数 请在【】处填入正确的内容 Private Sub Command1_Click()

Dim i As Integer, a As Integer, b As Integer, c As Integer '**********SPACE********** For i = 100 To 【999】

'**********SPACE********** a = Int(i / 【?】)

b = Int((i - 100 * a) / 10) '**********SPACE********** c = i - 100 * a - 【?】

If a * a * a + b * b * b + c * c * c = i Then Print i End If Next i

本文来源：https://www.bwwdw.com/article/91k2.html