在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：Dim ss As StringPrivate Sub Text1 KeyPress(KeyAscii As Integer)If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii)End SubPrivate Sub Command1 Click（　　）Dim m As String，i As IntegerFor i=Len(ss)To 1 Step-1m=m+Mid(SS，i，1)NextText1．Text=UCase(m)End Sub程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（　　）。

试卷相关题目

• 1有如下事件过程：Private Sub Form Click（　　）Dim n As Integcrx=0n=InputBox("请输入一个整数")For i=1 To ifor j =1 To jx=x+1Next jNext iPrint xEnd sub程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（　　）。

  A.13

  B.14

  C.15

  D.16

  开始考试点击查看答案
• 2下列对于软件测试的描述正确的是（　　）。

  A.软件测试的目的是证明程序是否正确

  B.软件测试的目的是使程序运行结果正确

  C.软件测试的目的是尽可能多地发现程序中的错误

  D.软件测试的目的是使程序符合结构化原则

  开始考试点击查看答案
• 3下面描述中，不属于软件危机表现的是（　　）。

  A.软件过程不规范

  B.软件开发生产率低

  C.软件质量难以控制

  D.软件成本不断提高

  开始考试点击查看答案
• 4如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。Private Sub Command1 Click（　　）Dim n As LongDim flag As Booleann=InputBox("输入一个正整数")S=Trim(Str(n))For i=2 To Len(s)If Mid(s，i-1，1)Next iIf i=Len(S)Then flag=True Else flag=FalseIf flag ThenPrint n；"是降序数"ElsePrint n；"不是降序数"End IfEnd Sub运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（　　）。

  A.If i=Len(s)+1 Then flag=False Else flag=True

  B.If i=Len(s)+1 Then flag=True Else flag=False

  C.If i=Len(s)-1 Then flag=False Else flag=True

  D.If i=Len(s)-1 Then flag=True Else flag=False

  开始考试点击查看答案
• 5执行下列程序段a$="visual Basic Programming"b$="C++"C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2)后，变量c$的值为（　）。

  A.Visual BASIC Programming

  B.VISUAL C++Programming

  C.Visual C++Programming

  D.VISUAL BASIC Programming

  开始考试点击查看答案
• 6窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval 属性值为5000，Enabled属性值是True。Timer1的事件过程如下：Private Sub Timer1 Timer（　　）Static flag As IntegerIf Flag=0 Then Flag=1Flag=-flagIf flag=1 ThenText1．ForeColor=＆HFF＆ ＆HFF＆为红色ElseText1．ForeColor=＆HCOO＆ ＆HCOO＆为绿色End IfEnd Sub以下叙述中正确的是（　　）。

  A.每次执行此事件过程时，flag的初始值均为0

  B.flag的值只可能取0或1

  C.程序执行后，文本框中的文字每5秒改变一次颜色

  D.程序有逻辑错误，Else分支总也不能被执行

  开始考试点击查看答案
• 7耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是（　）。

  A.提高耦合性降低内聚性有利于提高模块的独立性

  B.降低耦合性提高内聚性有利于提高模块的独立性

  C.耦合性是指一个模块内部各个元素问彼此结合的紧密程度

  D.内聚性是指模块间互相连接的紧密程度

  开始考试点击查看答案
• 8在新建一个Visual Basic工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为（　　）。

  A.Forml．frm

  B.工程1．frm

  C.TheFirst．frm

  D.Form1．vbp

  开始考试点击查看答案
• 9下列程序执行后，变量X的值为（　　）。Dim a，b，C，d As SingleDim X As Singlef1=10b=30c=400If b>fl Thend=fl：fl=b：b=dEnd IfIf b>C ThenX=bElse If fl>c ThenX=cElseX=aEnd If

  A.10

  B.30

  C.400

  D.430

  开始考试点击查看答案
• 10计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。某人编写下面的程序用此公式计算并输出的近似值：Private Sub Cornmand1 Click（　　）P1=1Sign=1n=20000For k=3 To rSign=-SignPI=PI+SiRn／kNext kPrint PI*4End Sub运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（　　）。

  A.把For k=3 To n改为For k=1 To n

  B.把n=20000改为n=20000000

  C.把For k=3 To n改为For k=3 To n Step 2

  D.把PI=1改为P1=0

  开始考试点击查看答案