delphi复习题编程题答案

delphi复习题编程题答案
delphi复习题编程题答案

第四题:编程题(8分)

计算个人所得税。

答:(1)将用If分支结构实现的程序代码放入Button1的Click事件中,具体程序代码如下:

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z,t:single;

begin

if Edit1.Text='' then Edit1.Text:='0';

x:=strToFloat(Edit1.Text); (税前月总收入x)

y:=1600; (起征点默认为1600元)

y:= strtofloat(edit2.text); (起征点y)

if (x>y) and (x>500) then z:= 0.05*x;

if (x>y) and (x>=500) and (x<2000) then z:=0.1*x-25;

if (x>y) and (x>=2000) and (x<5000) then z:=0.15*x-125;

if (x>y) and (x>=5000) and (x<20000) then z:=0.2*x-375;

if (x>y) and (x>=20000) and (x<40000) then z:=0.25*x-1375;

if (x>y) and (x>=40000) and (x<60000) then z:=0.3*x-3375;

if (x>y) and (x>=60000) and (x<80000) then z:=0.35*x-6375;

if (x>y) and (x>=80000) and (x<100000) then z:=0.4*x-10375;

if (x>y) and (x>=100000) then z:=0.45*x-15375;

t::=x-z; (应交税款z,税后月收入t)

Label1.Caption:=format(‘应交税款为:%10.2f’+#13+’税后月收入

为:%10.2f’,[z,t]);

end;

第五题:编程题(8分)

利用二维数组建立一个矩阵,结果显示在列表组件ListBox1中.

答:procedure TForm1.FormCreate(Sender: TObject);

var

a:array[1..8,1..8] of integer;

I,j:integer;

St:string;

Begin

For i:=1 to 8 do

For j:=1 to 8 do

If (i=j) or (i=9-j) then

A[I,j]:=8

Else

A[I,j]:=1;

For i:=1 to 8 do

Begin

St:=’’;

For j:=1 to 8 do

St:=st+inttostr(a[I,j])+’‘;

Listbox1.items.add(st);

End;

End;

第六题:编程题(8分)

设计一个抽奖程序,具有如下功能:

1)提供可输入参加抽奖的所有号码的输入界面。

2)单击“开始”按钮,界面上快速跳出参加抽奖的号码。

3)按任意键,抽奖号码停止跳动,当前显示的号码即为选中的中奖号码。

4)如果继续抽奖,已中奖号码被排除后重复2)、3)步的过程。

(提示:使用TTimer组件。)要求写出界面设计过程,各组件的属性,编写程序代码。答:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

ListBox1: TListBox;

ListBox2: TListBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

GroupBox1: TGroupBox;

Edit1: TEdit;

Timer1: TTimer;

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//清除所有参加抽奖号码

procedure TForm1.Button4Click(Sender: TObject);

begin

listbox1.clear;

end;

//清除所有中奖号码

procedure TForm1.Button5Click(Sender: TObject);

begin

listbox2.clear;

end;

//输入参加抽奖号码

procedure TForm1.Button1Click(Sender: TObject);

begin

listbox1.items.add(edit1.Text);

edit1.Text:='';

edit1.SetFocus ;

end;

//开始抽奖

procedure TForm1.Button2Click(Sender: TObject);

begin

if listbox1.items.count>1 then

timer1.Enabled :=true;

if not listbox2.Focused then

listbox2.setfocus;

end;

//计时器随机抽取并显示号码

procedure TForm1.Timer1Timer(Sender: TObject);

var

r:integer;

begin

r:=trunc(random(listbox1.items.count));

label4.caption:=listbox1.items[r];

if not groupbox1.visible then

groupbox1.visible:=true;

end;

//按任意键抽取中奖号码

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin

if timer1.Enabled then

begin

timer1.enabled:=false;

if label4.Caption <> '' then

begin

listbox1.items.delete(listbox1.items.indexof(label4.Caption));

listbox2.items.add(label4.Caption );

end;

label4.Caption :='';

groupbox1.Visible :=false;

exit;

end;

end;

//退出

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

//回车键确认输入参加抽奖号码

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then button1click(nil);

end;

end.

第七题:编程题(8分)

设计一个如图所示的快捷菜单,并具有剪切等四项功能。

(提示:采用一个TMemo组件和一个TPopupMenu组件)。要求写出使用菜单编辑器设计过程,各组件的属性,编写程序代码。

答:

(1)1、在窗体中添加一个TMemo组件和一个TPopupMenu组件。组件属性设置如下:

Form1: caption 快捷菜单设计

Popupmenu PopupMenu1

Memo1 lines ‘’

PopupMenu1

2、双击TPopupMenu组件,弹出快捷菜单设计器。将caption属性设置为“剪切”,按

回车键后,“剪切”一词就出现在第一个菜单上。蓝色框下移,同样方法设置“复制”、“粘贴”、“删除”菜单项。

3、程序代码:

procedure TForm1.N1Click(Sender: TObject);

begin

Memo1.copytoclipboard;

End;

procedure TForm1.N2Click(Sender: TObject);

begin

Memo1.cuttoclipboard;

End;

procedure TForm1.N3Click(Sender: TObject);

begin

Memo1.pastefromclipboard;

End;

procedure TForm1.N1Click(Sender: TObject);

begin

Memo1.clear;

End;

第八题:编程题(8分)

从文件stu.dat中读入全部学生成绩数据,将其中获得奖学金的学生数据存入一个新文件(stui.dat)中.评奖学金的条件是:每门课程均在80分以上或三门课程总分在255分以上。

Type

Studentrecord=record

Xh,xm:string[6];

Yy,sx,dz:integer;

End;

答:

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var t:studentrecord;

f:file of studentrecord;

xingbie:string;

begin

assignfile(f,'stu.dat');

reset(f);

while not eof(f) do

begin

read(f,t)

listbox1.items.Add(t.xh+' '+t.xm+' '+inttostr(t.yy)+' '+inttostr(t.sx)+' '

+inttostr(t.dz));

end;

closefile(f);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

t:studentrecord;

f,f1:file of studentrecord;

p1,p2:boolean;

begin

assignfile(f, 'stu.dat');

reset(f);

assignfile(f1, 'stui.dat');

rewrite(f1);

while not eof(f) do

begin

read(f,t);

p1:=(t.yy>=80) and (t.sx>=80) and (t.dz>=80);

p2:=t.yy+t.sx+t.dz>=255;

if p1 or p2 then

write(f1,t);

end;

closefile(f);

closefile(f1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

Delphi_程序设计基础教程_习题答案(hzd)

Delphi 程序设计基础教程 第 1 章Delphi 集成开发环境 1. 填空题 (1) Delphi 是一个集成开发环境,从3程序设计、代码编译、调试,到最布程序的全部工作都可以在这个集成环境中完成。 (2) 在Delphi 集成环境的主要组成部分中有许多功能强大的工具,如:3主窗体、 对象树状视图、对象观察器、窗体设计器、代码编辑器工具等。 (3) Delphi 集成开发环境的界面分为4个部分,分别是。主窗口、窗体窗口、代码编辑窗口和对象查看器窗口 (4) 对象查看器的功能是:编辑设置窗体、组件的属性,并为窗体、组件添加事件的响应处理过程 (5) Delphi 主窗口由:标题栏、菜单栏、工具栏和组件板组成,它是打开其他窗口和退出D elphi 集成环境的主要界面。 2. 选择题 D(1) 对象查看器由组成。 A. 标题栏、菜单栏、属性标签和事件标签 B. 标题栏、菜单栏、对象选择器和事件标签 C. 标题栏、菜单栏、对象选择器和属性标签 D. 标题栏、对象选择器、属性标签和事件标签 D(2) Delphi 用来管理用户开发的应用程序中的各个文件,有序地管理可以极大地提高应用程序开发的质量和速度。 A. 单元 B. 组件 C. 属性 D. 项目 B(3) 用来编写应用程序的代码。 A. 调试器窗口 B. 代码编辑窗口

C. 报表生成器窗口 D. 数据库桌面窗口 B(4) 代码编辑窗口分为左、右两部分:。 A. 左边是单元代码窗口,右边是单元浏览器窗口 B. 左边是单元浏览器窗口,右边是单元代码窗口 C. 左边是单元调试窗口,右边是单元浏览器窗口 D. 左边是单元浏览器窗口,右边是单元调试窗口 A(5) 属性选项卡即标签名为“Properties”的选项卡,用于设置当前组件的属性,属性选项卡是一个两列的表格,。 A. 左列是属性标题,右列是属性值 B. 左列是组件名称,右列是事件名 C. 左列是属性标题,右列是事件名 D. 左列是组件名称,右列是属性值 C(6) 事件选项卡即标签名为“Events”的选项卡,用于为当前组件添加各种响应事件(如单击、拖曳事件等),它随对象选择器中的所选组件而发生变化。事件选项卡为一个两列的表格,,默认时右列为空,在空格处双击则可以为当前组件添加事件,并进入代码编辑器窗口。 A. 左列是属性标题,右列是属性值 B. 左列是组件名称,右列是事件名 C. 左列是事件名称,右列是事件处理过程 D. 左列是组件名称,右列是属性值 ab(7) 在项目管理器中列出了当前项目中的各个,用户可以对它们进行操作。 A. 项目文件和单元文件 B. 项目文件和窗体文件 C. 项目文件和对象映射文件 D. 单元文件和窗体文件 3. 判断题 (1) Delphi 的状态栏不过是把一些常用的菜单命令以图标按钮的方式显示出来,以便于快速访问。(F )

《VB程序设计》期末考试试卷(A)附答案

******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷(A)附答案 一、选择题(2分/题,共60分) (1)要设置窗体上各控件的属性,可以在___中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 (2)下面程序段___能够正确实现目的:如果x

(5)双击窗体中的对象后,VB将显示的窗口是___。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 (6)下列程序段的执行结果是___。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 (7)下列哪个不是窗体的属性___。 ACaptionBText CControlBoxDBorderStyle (8)设组合框Combo1中有3个项目,则以下能删除最后一项的语句是___。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount (9)窗体BorderStyle属性的功能是___。 A设置窗体的边框大小 B设置窗体的边框样式,是否显示标题栏,是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 (10)下列可作为VB的变量名的是___。

VB程序设计试题与答案-1资料

《VB程序设计基础》试题 一、选择题:(每空 2 分,共 20 分) 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言,构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”,表达式Right(S,1)+Left(S,1)+Mid(S,2,1)的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式,正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框,所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT(100*RND)产生的随机整数的闭区间是_____________。 A.[0,100] B.[1,100] C.[1,99] D.[0,99] 9. 一个数组说明为Dim a(0 to 5,1 to 5) As Integer,则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。

Delphi程序设计试题及解答(wan)

《Delphi 程序设计》试题及解答 卷6 一、填空题(20分,每空2分) 1、现实世界中对象具有自己的状态和行为。对应着,面向对象技术中的对象可以具有自己的属性和 方法 。 2、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构,其中每种结构只能有 一个入口 和一个出口。 3、Delphi 应用程序中单元文件的扩展名是 .pas 。 4、与数学表达式 53)(cos 2++x b a 对应的Object Pascal 表达式是 。 5、对于下面的条件表达式: ((3 <= x )AND (x < 0)) OR (x in [1..10]) 当x = 3 时, 该表达式的值为 。 6、ListBox 对象列表框中的内容是通过 属性来进行设置的。 7、如果想设计DBGrid 对象的列标题和对齐方式,可以对DBGrid 对象的 属性进行设置。 8、时钟组件(Timer )能有规律的以一定时间间隔触发 事件 9、能够实现格式化输入的编辑框组件是 10、利用 对象的LineTo 等方法,可以绘制基本图形。 二、单项选择题(20分,每题2分) 1、Delphi 程序设计的基本特点是( )。 A . 可视化程序设计 B . 代码程序设计 C . 事件驱动编程 D . A 和C 2、进度显示组件ProgressBar 的当前进度可以通过( )属性设置。 A . Step B .Scroll C . Position D .Max 3、下列变量命名正确的是( )。 A .7ABC B . My7 C . page@2 D .cmd..1 4、“x 是小于200的非负数”的Object Pascal 表达式是( )。 A .0 ≤ x < 200 B . x >= 0, x<200 C .(x >=0) AN D (x < 200) D . (x >= 0 ) OR (x<200) 5、在窗体上建立多页面的用户界面,需要首先建立的对象是( ) A . TabControl B .PageControl C . HeaderControl D .PageScroller 6、能够删除edit1中内容的语句是( )。 A . edit1.Clear ; B .edit1. Focused ; C . edit1.Text= null ; D .edit1.text :='\0' ; 7、现建立一个简单报表,仅包含数据列标题栏、数据栏和汇总栏,则在Bands 属性的子属

VB程序设计期末模拟试卷

《VB程序设计》期末模拟试卷 一、单项选择 (b )1.被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A.方法、事件 B.事件、方法 C.事件、属性 D.过程、属性 ( c)2.下列________是Single型变量。 A.Time% B.Name$ C.Sheight! D.CXYZ& (a )3.以下四个VB的变量名中,合法的是____________。 A.X23 B.$Re C. Len

D.3xy ( d)4.在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后,下面正确的说法是________。 A. str1是整型,str2是长整型 B. str1是长整型,str2变体型 C. str1、str2都是长整型 D. str1是变体型,str2是长整型 (b )5.表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A.True B.False C.”&O3631AB” D.&O3631 (c )6.表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A.200、200 B.“100100”、“100100” C.200、“100100”

D.“100100”、200 (b )7.以下语句执行时,从键盘上输入Zhao,并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A.Input B.Zhao C.Name D.空字符串 (b)8.语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A.4 B.5 C.6 D.7 ( d)9.在窗体的通用段声明变量时,不能使用__________ 关键字。 A.Dim

VB考试题及答案

VB程序设计期末考试题 一、选择题 1 下列常量中,是Integer类型常量的是( C )。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境(IDE)的叙述中,不正确的是( B )。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面(窗体)的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后,A=(A)。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时,转换规则是( D )。 A、将True转换为 1 ,将False转换为 0 B、将True转换为 1 ,将False转换为 -1 C、将True转换为 0 ,将False转换为 -1 D、将True转换为 -1 ,将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).

A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2,则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值( B )。 A、不能计算 B、 True C、5 D、False 11 随机产生[10,50] 之间整数的正确表达式是( D )。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile

vb程序设计试题(含答案)

第一套试题 一、选择题(每题2分,共30分) 1.在VB环境中,工程文件的扩展名是( C ) (A).frm (B).bas (C).vbp (D).frx 2.下面4项中不属于面向对象系统三要素的是( A ) (A)变量(B)事件(C)属性(D)方法 3. \、/、Mod、*这4个算述运算符中,优先级别最低的是( C ) (A)\ (B)/ (C)Mod (D)* 4.要使Print方法在Form_Load事件中起作用,要对窗体的( C )属性进行设置(A)BackColor (B)ForeColor (C)AutoRedraw (D)Caption 5.不论何控件,共同具有的属性是( B ) (A)Text (B)Name (C)ForeColor (D)Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”,以下语句正确的是( D ) (A)Form1.Caption=“欢迎使用VB”(B)Form1.Caption=ˊ欢迎使用VBˊ(C)Form1.Caption=欢迎使用VB (D)Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构,这3种基本结构是( D ) (A)递归结构,选择结构,循环结构(B)选择结构,过程结构,顺序结构 (C)过程结构,输入、输出结构,转向结构(D)选择结构,循环结构,顺序结构 8.给变量赋值a=123+MID(“123456”,3,2),a变量中的值是( D ) (A)“12334”(B)123 (C)12334 (D)157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是( D ) (A)If sex=“男”And age<40 And InStr(duty,“教授”)>0 Then n=n+1 (B)If sex=“男”And age<40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 (C)If sex=“男”And age<40 And Right(duty,2)= “教授” Then n=n+1 (D)If sex=“男”And age<40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容,可用来实现的方法是( C )

《Delphi程序设计》期末考试试卷和答案

《Delphi 程序设计》期末考试试卷和答案 一、单选题(每小题2分,共30分) 1.在 RadioGroup 组件中有 4 个单选框,当选中第 2 个单选框时, RadioGroup 组件中的 ItemIndex 属性值应为 ( B )。 A .0 B .1 C .2 D .3 2.函数和过程的区别为( A )。 A .函数执行后返回一个值,而过程不需返回值 B .过程执行后返回一个值,而函数不需返回值 C .过程在被调用时,能执行某种特殊功能并能返回到调用它的地方 D .函数在被调用时,能执行某种特殊功能并能返回到调用它的地方 3.32 AND 27 的值是( B )。 A .59 B .0 C .27 D .32 4.窗体与数据模块的扩展名是( B )。 A ..dcu B ..dfm C ..pas D ..dpr 5.Delphi 中用什么函数来析构一个组件( C )。 A .Constructor B .Destroy C .Free D .Create 6.一个指针变量 ptr 的域成员 fs 访问的方法是( C )。 A .ptr->fs B .ptr.fs C .ptr^fs D .ptr@fs 7.Type aarrays=[1…8,1…5] of integer ,该类型定义了多少个下标元素( D )。 A .45 B .54 C .48 D .40 8.Delphi 的所有类都是从什么类继承下来的( B )。 A .Tcomponent B .Tobject C .Tstream D .Tnull 9.定义构造函数时用到的保留字是( C )。 A .Class B ..implementation C .create D .construction 10.下列组件中属于可视组件的是哪一个( D )。 A .Tdatasource B .Topendialog C .Ttable D .Tscrollbar 11.设有过程 procedure pro(V AR x,y:integer); 变量 a , b 为整型变量,其值分别为 5、6,则合法的过程调用语句是( D )。 A .Pro(5,6) B .pro(5,b) C .pro(a,6) D .pro(a,b) 12.下列组件中不能获取焦点的是( B )。 A .Tedit B .Tlabel C . Trichedit D .Ttreeview 13.定义抽象类必须使用的指令字是( A )。 A .Abstract B .virtual C .dynamic D .override” 14.Delphi 是哪个公司的产品( C )。 A . Microsoft B .IBM C .Borland D .DOM 15.窗体上放置有一个TEdit 类控件Edit1,当在Edit1中按下‘A’键时触发的事件和事件顺序是( A )。 A .OnKeyDown->OnKeyPress->OnKeyUp B .OnKeyDown->OnKeyUp C .OnKeyPress D .OnKeyDown->OnKeyUp->OnKeyPress 二、判断题(每小题1分,共10分) 1.Pascal 语言中可以把一个实数赋值给一个整型变量,系统会自动取整。( 错 ) 2.所有类都有Name 属性。( 错 ) 3.variant 类型的变量被动态赋值为一个特定的数据类型后,不能再赋值为一个其它的数据类型。( 错 ) 4.函数MessageDlgPos 与MessageDlg 极为相似,只是MessageDlgPos 函数能够控制信息对话框的出现位置。( 对 ) 5.BitBtn 控件可以用来制作一个带图片的按钮,而SpeedButton 则不能。( 错 ) 6.MediaPlayer 控件的AutoEnable 属性是用来控制该控件是否可用。( 错 ) 7.图形组件没有输入焦点,不能接受用户的输入,它只具有向用户显示的功能。( 对 ) 8.Timer 组件常称为“定时器”,它每隔固定的时间间隔可以触发一个OnTimer 事件。( 对 ) 9.Tobject 是delphi 的基类,系统中的每一个类都是Tobject 的子类。( 对 ) 10.在MDI 应用程序窗口中,如果将一个窗体设为父穷窗体,要将它的FormStyle 属性设为FsStayOnTop 。( 错 ) 三、填空题(每空2分,共20分) 1.用于建立菜单项的下划线快捷方式的字符是 & 。 2.在设计阶段,利用Image 对象的 picture 属性,可以加载一幅图片。 3.所有可视化的VCL 控件都是从 TControl 基类派生而来的。 黑龙江生物科技职业学院2008—2009学年第一学期期末考试试卷(A-2-2) 题目 得分 评卷人 一 题目 得分 评卷人 二 题目 得分 评卷人 三

VB程序设计期末试卷

《VB程序设计》期末试卷 一、判断题(每题1分,共10分) ()1、设置属性的语句格式为:“对象名.属性名=属性值”。 ()2、在窗体或模块文件中声明为Private的过程,只能被本窗体或模块中的过程所调用。()3、VB的赋值语句只能给变量赋值。 ()4、在VB中,字符型常量应使用"#"号将其括起来。 ()5、窗体大小只能通过鼠标拖动窗体边框来设置。 ()6、VB的Double类型数据,可以精确表示其数值范围内的所有实数。 ()7、若用户在键盘上按下一个键,则会产生一个Click事件。 ()8、罗马数制是进位计数制。 ()9、事件过程可以由用户事件触发执行,也可以由其他过程所调用。 ()10、Do While条件.....Loop和DO Until Not条件.....Loop 两条循环语句,实现循环控制是等效的。 二、单项选择题。(每小题2分,共50分) ()1.设a=“Visual Basic”,下面使b=“Visual”的语句是 A. b=Left(a,6) B. b=Mid(a,1) C. b=Rigth(a,5,5) D. b=Left(a,1,6) ()2.在立即窗口中执行?9>=9,输出结果是 A.0 B.True C.False D. -1 ()3.语句Dim var1 As Boolean作用是:将var1定义为什么类型变量 A.单精度型 B. 整型 C. 布尔型 D.字符型 ()4.Int(—0.618*10)/10的值是 A.—0.7 B.—0.6 C. —1 D. —0.1 ()5.表达式2 + 8 * 6 / 4 Mod 2的值是 A.5 B.2 C.6 D.9 ()6.在VB中快捷键F4打开哪个窗口? A. 资源管理器窗口 B. 属性窗口 C. 代码窗口 D. 立即窗口 ()7.函数Int( 64 * RND() )的值是在哪个范围内的整数? A. [0,63] B. [0,64] C. [1,63] D. [1,64] ()8.下列叙述中正确的是 A. 只有窗体才是Visual Basic中的对象 B. 只有控件才是Visual Basic中的对象 C. 窗体和控件都是Visual Basic中的对象 D. 窗体和控件都不是Visual Basic中的对象 ()9.用于Visual Basic程序设计的控件在 A. 工具箱中 B.工具菜单中 C. 工程窗口中 D.工具栏上 ()10.Visual Basic程序中表示续行的字符是 A. : B. _ C. \ D. ’ ()11.决定按钮显示内容的属性是 A. Text https://www.360docs.net/doc/537643415.html, C. Caption D.BackStyle ()12.下列可以把图形文件c:\地鼠1.jpg装入窗体FORM1中的语句为 A. Form1.Picture= LoadPicture("c:\ 地鼠1.jpg") B. Form1.Handle = " c:\ 地鼠1 .jpg" C. Form1 = LoadPicture("c:\ 地鼠1.jpg") D. Form1 = " c:\ 地鼠1.jpg" ()13.设a、b、c为整型变量,执行以下程序后a、b、c的值是 a=1:b=2:c=3 a=b:b=c:c=a A.2 3 1 B.2 3 2 C.3 2 1 D.1 3 2 ()14.将数学表达式2 2* 5 ) ( cos e b a+ +写成Visual Basic的表达式,其正确的形式是 A.Cos (a+b) ^2+5*exp(2) B.Cos^2(a+b)+ 5*exp(2) C.Cos (a+b) ^2+5*ln(2) D.Cos^2(a+b)+ 5*ln(2) ()15.下列描述图片框和图像框区别,那条是错误的 A.图像框中显示图片一般用作背景 B.图片框有拉伸属性

VB程序设计编程考试~题及答案~

VB程序设计编程考试题及答案 1.输入3个数,输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜!成绩通过!”, 若小于60,则弹出消息框,显示“抱歉!成绩没有通过! Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜!成绩通过!")) Else Val (MsgBox("抱歉!成绩没有通过!")) End If End Sub 4.输入一年份,判断它是否为闰年,并显示有关信息。(判断闰年的条件是:年份能被4整 除但不能被100整除,或者能被400整除) Private Sub Command1_Click() Dim y%

大学VB期末考试试题

VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是(1)和(2)。 2、在VB中,最主要的两种对象是(3)和(4)。 3、工程是构成应用程序文件的(5)。 4、方法是VB提供的一种(6),用来完成一定的操作。 5、浮点类型数据包括单精度型和___(7)__数据。 6、事件是窗体或控件对象识别的___(8)____。 7、可用窗体的___(9)_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____(10)___或禁止状态(暗淡的)中的某一种。 9、在VB中,修改窗体的(11)和(12)属性值,可改变窗体的大小。 10、双击工具箱中的控件图标,可在窗体的(13)出现一个尺寸为缺省值的控件。 11、在MsgBox函数中,如果缺省title参数,则使用(14)作为消息框的标题。 12、设x=34.58,语句Print Format(x,“000.0”)的输出结果是(15)。 13、在VB 中,数值型变量的初值为(16),Varant型变量的初值为(17),布尔型变量的初值为(18)。 14、设置窗体的(19)属性,可在窗体上显示图片。 15、程序运行工程中,清除MP图片框中的图片应使用语句(20)。 二、选择题 1、菜单控件只包括一个事件,即(1),当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是(2)。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示(3)。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是(4)。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是(5)。

[整理]VB程序设计复习题及答案.

中南大学现代远程教育课程(专科)考试复习题及答案 《VB程序设计与应用》 一、选择题:在每小题给出的四个选项中,只有一项是符合题目要求的,请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是()。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是()。[ ] A: Filename B: A(A+B)C: A%D D : Print 3. 要让菜单项无效,应将()属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是()事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是()属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中,不正确的为()。[ ] A)事件是由Visual Basic预先定义好的,能够被对象识别的动作 B)DblClick(双击)是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件,需要程序员自己定义 7. 下列控件中可设置滚动条是()。 [ ] A. 检查框(复选框) B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体,( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1,则One为()类型的常数。[ ] A)整型 B)字节型

完整的delphi程序设计教程课后习题答案

239页1题小时钟 procedure TForm1.Timer1Timer(Sender: TObject); var xt,yt:integer; h,m,s,ms:word; begin decodetime(time,h,m,s,ms); xt:=paintbox1.clientwidth div 2; yt:=paintbox1.clientheight div 2; paintbox1.refresh; paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=3; paintbox1.canvas.lineto(xt+round(sin((60*h+m)/(12*60)*2*pi)*100), yt-round(cos((60*h+m)/(12*60)*2*pi)*100)); paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=2; paintbox1.canvas.lineto(xt+round(sin(m/60*2*pi)*140), yt-round(cos(m/60*2*pi)*140)); paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=1; paintbox1.canvas.lineto(xt+round(sin(s/60*2*pi)*180), yt-round(cos(s/60*2*pi)*180)); end; end. 239页3题求两点间的距离 procedure TForm1.Button1Click(Sender: TObject); begin paintbox1.Refresh; formpaint(sender); end; procedure TForm1.FormPaint(Sender: TObject); var xt,yt:integer; ax,ay,bx,by:integer; begin xt:=paintbox1.ClientWidth div 2; yt:=paintbox1.Clientheight div 2; paintbox1.canvas.MoveTo(xt,0); paintbox1.canvas.lineTo(xt,2*yt); paintbox1.canvas.MoveTo(0,yt); paintbox1.canvas.lineTo(2*xt,yt); ax:=strtoint(edit1.text);

VB程序设计试题及答案一

V B程序设计试题及答案(一) 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作,要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI,可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中,其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构,三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty,"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty,2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……

vb程序设计试题(含标准答案)

第一套试题 一、选择题(每题2分,共30分) 1.在VB环境中,工程文件的扩展名是( C ) (A).frm (B).bas(C).vbp (D).frx 2.下面4项中不属于面向对象系统三要素的是( A ) (A)变量(B)事件(C)属性(D)方法 3. \、/、Mod、*这4个算述运算符中,优先级别最低的是( C ) (A)\ (B)/ (C)Mod (D)* 4.要使Print方法在Form_Load事件中起作用,要对窗体的( C )属性进行设置 (A)BackColor (B)ForeColor (C)AutoRedraw(D)Caption 5.不论何控件,共同具有的属性是( B ) (A)Text (B)Name (C)ForeColor(D)Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”,以下语句正确的是( D ) (A)Form1.Caption=“欢迎使用VB”(B)Form1.Caption=ˊ欢迎使用VBˊ (C)Form1.Caption=欢迎使用VB (D)Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构,这3种基本结构是( D ) (A)递归结构,选择结构,循环结构 (B)选择结构,过程结构,顺序结构 (C)过程结构,输入、输出结构,转向结构(D)选择结构,循环结构,顺序结构 8.给变量赋值a=123+MID(“123456”,3,2),a变量中的值是( D ) (A)“12334”(B)123 (C)12334 (D)157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是( D ) (A)If sex=“男”And age<40 And InStr(duty,“教授”)>0 Then n=n+1 (B)If sex=“男”And age<40 And (duty=“教授”Or duty=“副教授”) Thenn=n+1

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件,即 C ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label

6、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的? D 。 A、在标题项中输入&,然后打勾 B、在索引项中打 勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时,在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去,其实现的方法是 D 。 A.Show B.Hide C.Load D.UnLoad 12、以下选项中,不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后,Visual Basic将显示的窗口是 A 。 A.代码窗口 B.工具箱 C.项目(工程)窗口 D.属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 A.ControlBox B.MinButton C.MaxButton D.BorderStyle 15、设有如下语句: Strl=InputBox("输人","","练习") 从键盘上输人字符“示例”后,Strl的值是 D 。 A.“输入” B.“” C.“练习” D.“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click

大学计算机VB程序设计考试题目

实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text

相关文档
最新文档