1、DRLTrim3下列表达式中，值为True的是A32=Lcase（VB）CMid（vbprogram, 2, 2） Left（, 2）D14 / 2 3 10 Mod 44数学表达式|e3+lnX+arctgY|对应的VB表达式是AAbs（e 3 + Log（X） + 1 / Atn（Y）BAbs（Exp（3） + Log（X） / Log（10） + Atn（Y）CAbs（Exp（3） + Log（X） + 1 / Atn（Y）DAbs（Exp（3） + Log（X） + Atn（Y）5执行语句 Print Sgn（Fix（3.1） + Int（-3.1） ，在窗体上输出的结果是A1 B0
2、C-1D66下列语句不能正常执行的是APrint 20 + 5 = 25BPrint 11 + 11CPrint 11 & 11 DPrint 32700 + 1007在窗体上有两个文本框Text1和Text2，若希望在Text1中输入字符时，该字符也将出现在Text2中，要实现该功能，则必须在文本框Text1的 事件中书写代码。AClick BGotFocus CLostFocus DChange8在窗体（Name属性为Form1）上画两个文本框（Name属性分别为T1和T2）和一个命令按钮（Name属性为C1）。单击命令按钮C1后在窗体上输出的结果为Private Sub C1_Click
3、（） s = T1.Text + T2.Text Print sEnd SubPrivate Sub Form_Load（） T1.Text = 234 T2.Text = 432A666 B234432C432234 D出错9下列控件中，具有Caption属性的是A文本框 B复选框 C滚动条 D列表框10下列选项中（其中对象的Name属性值均为默认值），控件的属性值既能在设计时设置，又能在运行时通过赋值语句改变的是AList1.NameBText1.MultiLineCCommand1.StyleDLabel1.Visible11为了在按下ESC键时执行某个命令按钮的Click事件过程，需要
4、把该命令按钮的 属性的值设置为True。AValue BDefault CCancel DEnabled12如图1所示，在窗体中创建了框架、单选钮和命令按钮（其中对象的Name属性值均为默认值），图中“公共基础课”字样的内容，是通过 语句来实现的。AFrame1.Caption=公共基础课BForm1.Caption=COption1.Caption=DCommand1.Caption=13下列选项中，不能使控件获得焦点的操作是A在程序运行期间，用鼠标单击对象 B在程序运行期间，用快捷键选择对象C在程序运行期间，用Tab键D在程序运行期间，用Enter键14下列选项中不属于结构化程序设计的基本
5、结构的是A顺序结构 B选择结构 C循环结构 D递归结构15下面关于赋值语句的说法中，错误的是A一个赋值语句只能给一个变量（或对象的一个属性）赋值B赋值语句是一种顺序语句C当赋值语句中变量的数据类型与表达式的数据类型不一致时，该语句一定会出错D赋值语句中出现两个“=”号时，系统会根据“=”所处的位置自动判断符号的意义。16如图2所示，Inputbox函数的参数中“提示信息”的值是A输入你的学号B信息输入框C0101001D确定 17现有语句： y = IIf（x 0 , x 5, 0） 设x = 10，则y的值是A10 B2C0 D语句有错 18对动态数组A（），若原数组为A（5），要改变其维界
6、为A（10），同时还要保留原数组的数据不丢失，应使用 语句进行重新定义。A. Dim A（10）B. ReDim Preserve A（5 To 10）C. ReDim Preserve A（10）D. ReDim A（10）19下面的循环语句中，不可以采用 来求1到100的和。ASum = 0BSum = 0For I = 1 To 100For I = 100 To 1 Step -1 Sum = Sum + ISum = Sum + I Next INext ICI = 1DI = 1DoDo Until I 100Sum = Sum + II = I + 1I = I + 1Loop
7、While I 4 Then Exit DoEnd If Print x Print y2.运行下面的程序，当单击窗体时，窗体上显示的内容第一行是_（3）_，第二行是_（4）_。Dim a（3, 3） As Integer, i As Integer, j As Integer For i = 1 To 3For j = 1 To 3a（i, j） = （i - 1） * 3 + j * 2Next jNext iFor j = i + 1 To 3Print a（j, i）;Print Next i3.运行下面的程序，当单击窗体时，窗体上显示的内容第一行是 （5） ，第三行是 （6） ，Fo
8、rm_Click（）事件过程中的第二个For-Next循环共执行了 （7） 次。Dim x（1 To 4） As IntegerDim i As Integer, j As Integer For i = 1 To 4 x（i） = i * i Print x（i）; Print For j = 1 To 4 Call sub1（x（j）, j） Print j Next jPrivate Sub sub1（x As Integer, m As Integer） If x - m 0 If（11） n = n 10 f = False Exit Sub5.下列程序的功能是：随机生成10个三位正
9、整数，存放到数组a中，再用选择排序法对数组a从大到小排序，并且把排好顺序的数组元素写入D盘的根目录下的file1.txt文件中。程序运行参考界面如图8。Dim n As Integer, a（1 to 10） As Integer, i As IntegerDim j As Integer, imax As Integer, t As Integer排序前For i = 1 To 10（12） Print a（i）;图8排序后For i = 1 To 9 imax = i For j = i + 1 To 10（13） Then imax = j t = a（i） a（i） = a（imax）
10、 a（imax） = t （14）（15）Close #1d:file1.txt文件已经建立四、编程题（20分）1.在窗体上有一个命令按钮Command1和四个文本框txta、txtb、txtc和txtd。在Command1_Click事件过程中编写程序完成以下功能：在文本框txta、txtb和txtc中分别输入数值，单击“判断”命令按钮时，判断它们是否能组成一个三角形，如果能组成三角形，在文本框txtd中输出三角形的类型（直角三角形或普通三角形），如果不能则弹出提示窗口，窗口的提示信息为“不能构成三角形”，程序的参考界面如图9所示。图92.编写程序找出所有10-99之间的所有素数，并在其中找出十位数和个位数之和为10的素数。程序的参考界面如图10所示。要求：（1）编写一个判断某个正整数是否为素数的函数过程SuShu（）；（2）单击“两位素数”命令按钮Command1时，则调用函数过程SuShu（）在图片框Picture1上输出10-99之间所有素数，每行输出7个数；图10 （3）单击“各位数字之和为10的素数”命令按钮Command2时，在列表框List1中输出十位数和个位数之和为10的素数； （4）单击“退出”命令按钮Command3时，结束程序的运行。
