下列对程序解决问题的过程描述中，哪个是正确的（   ）

A．编写程序、设计算法、分析问题、调适运行与检测结果

B．设计算法、分析问题、编写程序、调适运行与检测结果

C．设计算法、分析问题、调试运行与检测结果、编写程序

D．分析问题、设计算法、编写程序、调试运行与检测结果

在用计算机程序解决问题的过程中，按需要找出解决问题的方法和步骤，通常把该过程称为（    ）。

A．编写程序

B．分析问题

C．设计算法

D．调试运行

GUI指的是什么（   ）

A．虚拟现实技术

B．语音技术

C．图形用户界面

D．智能代理技术

用计算机程序解决问题时，调试程序和检测结果的目的是（    ）

A．前者用于检查语法是否正确，后者检查能否按要求完成任务

B．前者检查算法是否正确，后者检查是否有语法错误

C．前者用于检查语法是否正确，后者检查是否有病毒

D．两者无区别

某VB程序的一个事件过程代码如下：
PrivAte SuB CommAnD1_CliCk()
Dim A As Single,x As Single,z As Single
A=vAl(Text1.Text)
x=(A+10)/(A*A+8)
y=(A-1)/(x+A)
z=Sqr(x-y)
Text2.Text="Str(z)"
EnD SuB
程序运行时在文本框Text1中输入-1，单击命令按钮CommAnD1，弹出如右图所示的错误提示信息，产生此错误的语句是(    )

A．A=VAl(Text1.Text)	B．x=(A+10)/(A*A+8)
C．y=(A-1)/(x+A)	D．z="Sqr(x-y)"

下列是用来检测某地区酸雨程度的程序，程序调试过程中提示①处出现语法错误，则这一行正确的语句应该为 。
Dim ph As Single, s As String
ph = Val(Text1.Caption) '①
If ph <=" 4.7" Then[]
s = "重度酸雨区"
Else
If ph <=" 5.6" Then
s = "轻中度酸雨区"
Else
s = "非酸雨区"
End If
End If
Label2.Caption = s

下列程序在调试时提示错误“块IF没有End If”，要使程序正常运行，则应该在 （填①或②）处添加语句     。
Private Sub Image3_Click(Index As Integer)
Timer1.Enabled = False
Image1.Picture = Image3(Index).Picture
If x =" Index" Then
Label1.Caption = "平手"
Command1.Visible = True
    ①  
Else
If x =" 1" And Index =" 2" Or x =" 2" And Index =" 3" Or x =" 3" And Index =" 1" Then
Label1.Caption = "您输"
Command1.Visible = True[:Zxxk.Com]
Else
Label1.Caption = "您赢"
Command1.Visible = True
End If
    ②     
End Sub

在VB应用程序设计中，如果想让Timer控件禁用，应该将其  属性设置为  。

A．Enabled 、False

B．Enabled、True

C．Visible、False

D．Visible、True

当a="123:" b=StrA.，则(    )
A. a和b均是字符型变量

A．a是字符型变量，b是数值型变量

B．a是数值型变量，b是字符型变量

C．a和b均是数值型变量

下列程序在调试时提示①处出现语法错误，修改相关错误使得程序能够正常运行，则①处所在行的语句修改之后应为 。
Dim api As Integer
api = Val(Text1.Text)
If api <=" 50" Then
Label2.Caption = "优"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-1.jpg")
End If
If 50 < api ≤ 100 Then ①
Label2.Caption = "良"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-2.jpg")
End If
If api > 100 And api <=" 150" Then
Label2.Caption = "轻微污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-3.jpg")
End If
If api > 150 And api <=" 200" Then
Label2.Caption = "轻度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-4.jpg")
End If
If api > 200 And api <=" 250" Then
Label2.Caption = "中度污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-5.jpg")
End If
If api > 250 And api <=" 300" Then[ZXXK]
Label2.Caption = "中度重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-6.jpg")
End If
If api > 300 Then
Label2.Caption = "重污染"
Picture1 =" LoadPicture(App.Path" & "\空气质量VB-7.jpg")
End If