




下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、 VB程序设计基础 期中练习一一、单选题(40%,每小题2分)1在设计窗体时双击窗体的任何地方,可以打开的窗口是_。A代码窗口B属性窗口C工程资源管理器窗口D工具箱窗口2Visual Basic是一种面向对象的程序设计语言,构成对象的三要素是 。 A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 3函数Int( 6 * RND )+1的值是在哪个范围内的整数?_A 0,6 B 0,7 C 1,6 D 1,74代数式 的VisualBasic表达式是 。 Aa+b/Sqr(c+Log(a)+c/d B (a+b)/Sqr(c+Log(a)+c/d C(a+b)/(S
2、pr(c+Log(a)+c/d) D (a+b)/(Sqr(c+Log(a)+c/d)5数学式子sin25写成VB表达式是 。ASin25 BSin(25)CSin(25*3.14/180) DSin(25)6下面 是日期型常量。A12/19/99 B12/19/99C#12/19/99# D12/19/997若x是一个正实数,对x的第3位小数四舍五入的表达式是_。A0.01*Int(x+0.005)B0.01*Int(100*(x+0.005)C0.01*Int(100*(x+0.05)D0.01*Int(x+0.05)8哪一条语句执行后将会删除文本框Text1中的文本?AText1.Tex
3、t=”BText1.SelText=”CText1.ClearDText1.SelText.Clear下列函数中,返回值是字符串的是 。AChrBInStrCValDAsc10可作为Visual Basic变量名的是 。AshowBAlphi_1C2E3D4D+211不正确的VB常量是 。A123!B&HABCC&O18D#1-1-03#12变量X# 占 字节内存容量。A2B4C6D813声明符号常量应该用关键字 。AStaticBConstCPrivateDVariant14下列各组函数中,函数值类型相同的一组是 。AExp(x)、Chr$(x)、Lcase$(x)BAsc(x)、Str$(
4、x)、Rtrim$(x)CSgn(x)、Int(x)、Len(x)DFix(x)、Left$(x)、Ucase$(x)15设S=“中华人民共和国”,表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为 。A“中华民国” B“中国人民”C“中共人民” D“人民共和”16先声明Dim X As String*10,再赋值X=”浙江”,最后Len(X)的值为 。A10 B2 C4 D1217判断变量x、y中有且只有一个为0的下列各表达式中,正确的是 。Ax=0 Or y=0 and x*y0 Bx+y=0 and x*y0Cx+y0 and x*y=0 Dx=0 and y01
5、8函数Val(&H100) 的返回值为 。A256 B0 C100D6419由For k=35 To 0 Step 3 :Next k 循环语句控制的循环次数是 。 A0 B12 C1 D1120在Select Case A 的语句中,判断A是否大于等于10小于等于20的是 。ACase A=10 And A=10 And Is = Max Then Max = x _( 3 )_ Next iPrint “最大值:”;Max, ”最小值:”; MinEnd Sub 2【程序说明】设计一个用计算机给出三位整数加法的练习程序,程序界面如下图所示,单击一次,则在文本框中产生一题。其中已将文本框的M
6、ultiline属性设置为True,并设置垂直滚动(ScrollBars=2);程序中Chr(13)+Chr(10)表示回车换行符。注:程序中有两个(4)空,算作一个空,答题时都要写出。Private Sub Form_Load() Text1.text=”End SubPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = _( 4 )_ 产生三位随机数y = _( 4 )_ 产生三位随机数Text1.Text = _( 5 )_ & x & + & y & =( ) & Chr(13) & Chr(10)End Sub三、
7、程序阅读题(20%,每小题4分)1阅读下列程序,程序运行后,单击窗体,写出窗体上输出结果。 【程序】Private Sub Form_Click()Dim k As Integer, i As IntegerFor i = 100 To 140 If i Mod 5 = 0 Then Print i; k = k + 1 If k Mod 10 = 0 Then Print Next iEnd Sub2下面程序运行时,单击窗体后,写出窗体上输出结果。【程序】Private Sub Form_Click() Dim x As String, y As String, d As Integer D
8、im i As Integer, n As Integer x = abcdefghijkl d = Asc(a) - Asc(A) n = Len(x) y = i = 1 Do While i = n y = y + Chr(Asc(Mid(x, i, 1) - d) i = i + 3 LoopPrint y=; yEnd Sub3下列程序运行后,单击命令按钮后输出的结果是什么?【程序】Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integern = 6For i = 1 To n Print Tab(
9、n - i + 1); For j = 1 To i Print Trim(Str(j); Next j For j = i - 1 To 1 Step -1 Print Trim(Str(j); Next j PrintNext iEnd Sub4下面程序运行时,单击窗体后,请写出窗体上显示的结果。 【程序】Private Sub Form_Click() Dim i As Integer, sum As Long sum = 0 For i = 1 To 6 Step 2 sum = sum + i Next i Print sum; iEnd Sub5下面程序运行时,单击窗体后在输入对话
10、框中输入13,写出窗体上程序运行结果。 【程序】Private Sub Form_Click() Dim x As Integer, y As String x = Val(InputBox() y = Do While x 0 y = x Mod 2 & y x = x 2 Loop Print yEnd Sub四、程序设计题(30%,每小题10分)1程序界面设计如下左图,运行程序后在Text1中输入数据(设输入数据类型是整形),单击“计算”按钮(Command1)由下右图给出的公式计算函数f(x)的值,并将结果输出到Label3标签框中;单击“结束”按钮(Command2)则结束程序运行。分别编写这两个命令按钮的单
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年度月子中心产后恢复中心合作框架协议
- 中国广电手机产品白皮书2025年版
- 2025年度储能设备箱涵项目施工临时照明劳务分包合同
- 2025年发酵类制品项目建议书
- 2025年钻采装备项目发展计划
- 2025年青霉素类抗菌药物合作协议书
- 如何将个人成长纳入月度工作计划
- 学生发展报告与个案分析计划
- 如何开展班级传统文化教育计划
- 幼儿阅读推广计划
- 住院精神疾病患者自杀风险护理
- 供应室课件大全
- 浙江省大学生职业生涯规划大赛赛前辅导课件
- 部编四下语文《口语交际:转述》公开课教案教学设计【一等奖】
- 仓库每日巡查制度
- 学校教育数字化工作先进个人事迹材料
- 动物防疫服务投标方案(技术方案)
- 2024年新课标全国Ⅰ卷语文高考真题试卷(含答案)
- 2024中国AI应用开发者生态调研报告-易观分析
- -中国传统节日之春节习俗介绍主题班会14
- 2024鲁教版七年级下册数学第七章综合检测试卷及答案
评论
0/150
提交评论