某人为计算n！（O ＜n ＜＝12）编写了下面的函数过程：Private Function fun（n As Integer）As LongDi m P As LongP＝lFor k ＝n －1To 2Step －1p ＝p＊kNext kfun ＝pEnd Function在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是（　　）。

试卷相关题目

• 1下列程序运行时输出的结果是（　　）。Option Base 1Const a＝10Private Sub Form＿Click0Di mx（a）As Integerk ＝－1For i ＝1To ax（i）＝i＊kk ＝（－1）＊kNext iFor i ＝1To 10Print x（i）Next iEnd Sub

  A.1 3 5 7 9 10

  B.－1－3－5－7－9

  C.－1 2－3 4－5 6－7 8－9 10

  D.1－2 3－4 5－6 7－8 9－10

  开始考试点击查看答案
• 2函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSi nx As Si ngleCosx As Si ngleEnd TypePrivate Sub Form＿Click（）Di m Y As Si ngleDi mi As IntegerDi m Ksc As AngOpen ____________Y ＝3．14159／180For i ＝1To 90Ksc ．K ＝iKsc ．Si nx＝Si n（i＊Y）Ksc ．Cosx＝Cos（i ＋Y）________Next iClose ＃2Elld Stub

  A.＂．．＼Datal ．txt＂For Rando mAs ＃1Len ＝10 Put ＃1，i ，Ksc

  B.＂．．＼Datal ．txt＂For Rando m As ＃1Len ＝10 Put ＃1，Y ，Ksc

  C.＂．．＼Datal ．txt＂For Rando m As ＃1 Put ＃1，i ，Ksc

  D.＂．．＼Datal ．txt＂For Rando m As ＃1 Put ＃1，Y ，Ksc

  开始考试点击查看答案
• 3一个模块内部各个元素彼此结合的紧密程度的度量称为（　　）

  A.耦合性

  B.内聚性

  C.复杂性

  D.数据传输特性

  开始考试点击查看答案
• 4用Print 方法在Forml 窗体中显示出4个＃号的正确代码为（　　）。

  A.Debug ．Print＂＃＃＃＃＂

  B.Print＂＃＃＃＃＂

  C.Forml-Print＂＃＃＃＃＂

  D.Forml ．Print＂＃＃＃＃＂

  开始考试点击查看答案
• 5以下叙述中错误的是（　　）。

  A.一个工程中只能有一个Sub Main 过程

  B.窗体的Show 方法的作用是将指定的窗体装入内存并显示该窗体

  C.窗体的Hide 方法和Unload 方法的作用完全相同

  D.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

  开始考试点击查看答案
• 6要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是（　　）。

  A.设置BorderStyle 的值为Fi xed Tool Wi ndow

  B.设置BorderStyle 的值为Sizable Tool Wi ndow

  C.设置BorderStyle 的值为Fi xed Dialog

  D.设置BorderStyle 的值为Sizable

  开始考试点击查看答案
• 7设在窗体上有一个文本框，然后编写如下的事件过程：Private Sub Text1＿KeyDown （KeyCode As Integer ，Shift As Integer）Const Alt ＝4Const Key＿F2＝＆H71altdown ％＝（Shift And Alt）＞0f2down ％＝（KeyCode ＝Key＿F2）If altdown ％And f2down ％ThenText1．Text ＝＂abl＂End IfEnd Sub程序运行后，清除文本框中原有内容，如果按Shift ＋F2键，则在文本框中显示的是（ ）。

  A.Alt ＋F2

  B.abl

  C.随机出几个数

  D.不发生变化

  开始考试点击查看答案
• 8在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Co mmand1），然后编写下列事件过程：Private Sub Co mmand1＿Click（）x＝0DO While x＜50x＝（x＋2）＊（x＋3）n ＝n ＋lLoopText1．Text ＝Str（n）Text2．Text ＝Str（x）End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（　　）。

  A.1和0

  B.2和72

  C.3和50

  D.4和168

  开始考试点击查看答案
• 9下列叙述中错误的是（　　）。

  A.软件测试的目的是发现错误并改正错误

  B.对被调试的程序进行"错误定位"是程序调试的必要步骤

  C.程序调试通常也称为Debug

  D.软件测试应严格执行测试计划，排除测试的随意性

  开始考试点击查看答案
• 10一个工程必须包含的文件的类型是（ ）。

  A.＊．vbp＊．frm＊．frx

  B.＊．vbp＊．cls＊．bas

  C.＊．bas＊．ocx＊．res

  D.＊．frm＊．cls＊．bas

  开始考试点击查看答案