20分求asp.net高手做几道程序题，对于懂的哥们很简单，分数不多，还希望大家能帮个忙，谢谢。

1this time i is:5 this time i is:6 this time i is:7 this time i is:8

2float a,float b, return max;

3new SqlConnection(connString);(strsql,conn),(dataset,"employee")(你没有这个变量)

4server=server1;uid=sa;pwd=;database=data1

new SqlCommand(cmdText,connection);sqlcommandExecuteNonQuery();connectionClose();

53,4会了,5应该也就行会了写个sql语句吧select from Toys where ToyRate<10

您好，楼主，你的问题我帮你补充好了，谢谢楼主共享这样的题目，受益匪浅(我也刚学不久)：楼主加油~~~~~~~~~~

import javaawt;

import javaawtevent;

import javaawtFlowLayout;

import javautilDate;

class WindowButton extends Frame

implements ActionListener

{ int number;

Label myLabel, physLabel, chemLabel;

TextField myText, physText, chemText;

Button buttonGetNumber, buttonEnter;

Button exitButton;

TextArea showResult;

WindowButton(String s)

{ super(s);

//代码1

setLayout(new FlowLayout()); // 将窗体设置为FlowLayout 布局

myLabel=new Label("输入生日yy-mm-dd：",LabelCENTER);

myLabelsetBackground(Colorcyan);

myText=new TextField(40);//代码2 // 创建myText，其可见长度是40

physLabel=new Label(" 输入物理成绩：",LabelCENTER);

physLabelsetBackground(Colorcyan);

physText=new TextField("0",40); //代码3 // 创建physText，其初值为0，可见长度是40

chemLabel=new Label(" 输入化学成绩：",LabelCENTER);

chemLabelsetBackground(Colorcyan);

chemText=new TextField("0",40);//代码4 // 创建chemText，其初值为0，可见长度是40

add(myLabel);

add(myText);

add(physLabel);

add(physText);

add(chemLabel);

add(chemText);

buttonEnter=new Button("确定");

add(buttonEnter);

buttonEnteraddActionListener(this);//代码5 为buttonEnter添加事件监视器

exitButton = new Button("Exit");

add (exitButton);

exitButtonaddActionListener(this);

showResult = new TextArea();

add(showResult);

setBounds(200,200,450,450);

setVisible(true); // 代码6 将窗体设置为可见

validate();

}

public void actionPerformed(ActionEvent e)

{

if(egetSource()== buttonEnter) // 代码7 判断事件源是否是buttonEnter

{

try { String birthday=myTextgetText();//88-11-23

String s1 = getMonth(birthday); // 调用方法getMonth获得出生月份

showResultappend("出生月份是：" + s1 +"\n");

String s2 = getDay(birthday); // 调用方法getDay获得出生日

showResultappend("出生日是：" + s2+"\n");

int phys=IntegerparseInt(physTextgetText());

int chem=IntegerparseInt(chemTextgetText());

float tot =total(phys,chem); //代码8 调用方法total计算总分;

String s = StringvalueOf(tot);

showResultappend("总 =" + s);

}

catch(NumberFormatException event)

{ myLabelsetText("请输入数字字符");

}

}

else if(egetSource() == exitButton)

{

dispose();

}

}

public float total(int m, int e)

{

return (m+e);

}

//代码9 // 写出方法getMonth，获得出生月份 //88-11-23

public String getMonth(String birthday){

String mon =birthdaysubstring(3,5);

return mon;

}

//代码10 // 写出方法getDay，获得出生日

public String getDay(String birthday){

String day =birthdaysubstring(6,8);

return day;

}

}

1）以下程序的功能是调用函数fun计算：m=1-2+3-4+…+9-10,并输出结果。纠正后的程序如下：

#include <stdioh>；

int fun(n)

{int m=0,f=1,i;

for (i=1;i<=n;i++)

{

m+=if;

f=f-1;

}

return m;

}

main()

{ printf("m=%d\n",fun(10));}

（2）以下程序的功能是：读入20个整数，统计非负整数个数，并计算非负整数之和。纠正后的程序如下：

#include <stdioh>

main

{ int i,n=20,s,count;

int a[20];

s=count=0;

for (i=0;i<n;i++) scanf("%d",a[i]);

for (i=1;i<=n;i++) if (a[i]>=0) {s+=a[i]; count++;}

printf("s=%d\t count=%d\n",s,count);

}

（3）下列程序的功能为：输出100以内能被3整除且个位上的数为6的所有整数。纠正后的程序如下：

#include <stdioh>

main

{ int i,j;

for(i=0,i<=10,i++)

{ j=i10+6;

if (j%3==0) print("%5d ",&j);

}

}

一个帖子只提一个问题

A信息技术的发展历史不足百年,它是随着计算机技术的发展而逐渐发展起来的

B信息技术已经成为当今社会最有活力,最有效益的生产力之一

C现代信息技术的主要特点之一是以电(光)信号来传输信息

D目前常讲的新一代信息技术包括大数据、云计算、移动互联网等技术

2下列关于目前台式PC机的叙述中，错误的是______

A芯片组是PC机各组成部分相互连接和通信的枢纽,它实现了PC机总线的功能

B大多数CPU芯片中集成有高速缓冲存储器(cache),其工作速度很快(与CPU速度相差不大)

C目前PCI-E总线是PC机最为重要的I/O总线之一,大多数的独立显卡使用该总线接口

DUSB30与USB20的接口连接器相同,区别在于前者的数据传输速度是后者的一倍以上

3下列关于I//O设备的叙述中,错误的是______

A目前键盘和鼠标等设备可以通过无线方式与PC主机相连接

B光学分辨率是扫描仪的主要性能指标之一,目前普通家用扫描仪的分辨率已达几千dpi

C传统显示器的宽度与高度之比一般是1:1,现在主流的液晶显示器的宽高之比是4:3

D目前用于打印数码照片的打印机主要是喷墨打印机

4下列关于PC机外存储器,错误的是__________

A移动硬盘通常采用USB接口或eSata接口,可随时插上或拔下(即支持"热插拔")

B存储卡是闪存做成的一种固态存储器,所有存储卡的形状,大小,接口都是相同的

C固态硬盘(简称SSD)是基于半导体存储器芯片的一种存储设备,其接口规范、功能及使用方法与普通硬盘几乎相同

DDVD盘片有单面单层、单面双层、双面单层和双面双层等品种,单面单层的120mm DVD存储容器约47GB

5从 *** 作系统发布的时间来看,下列四个Windows *** 作系统中最早发布的是________

AWindows Xp

BWindows 2000

CWindows Vista

DWindows 7

6下面给出的四个语言中,不属于程序设计语言的是______

ALisp语言

BMatlab语言

CHtml语言

DAda语言

7下列关于数字通信技术的叙述中,错误的是________

A光纤具有通信容量大,传输距离远,不会受高压线和雷电电磁感应影响

B移动通信技术的发展已经历的四代,目前我国所有的智能手机均使用3G

C我国自行研发的北斗卫星导航定位系统日趋成熟,并已逐渐投入商业运行

D路由器的主要作用是将两个或多个计算机网络进行互连

8Internet使用TCP/IP协议实现了全球范围的计算机网络的互连,连接在

Internet上的每一台主机都有一个IP地址,目前使用的IPv4标准,其IP地址为_____

A32位

B64位

C96位

D128位

9在下列的汉字标准中,不属于汉字编码标准的是______

AGB2312-80

BGB8566-88

CGBK

DGB18030-2000

10由于采用的压缩编码方式及数据组织方式的不同,声音文件形成了

多种不同的文件格式,在下列四种文件中,不属于数字声音文件的是_____

AAPE

BWMA

CMP3

DTIF

C++程序设计理论部分

1下列选项中不能作为C++自定义标识符的是______

Ascanf Bvoid CStruct D_int

2下列叙述不正确的是_______

A纯虚函数是一种特殊的虚函数,它必须有具体的实现

B纯虚函数是一种特殊的虚函数,它没有具体的实现

C抽象类至少包含一个纯虚函数

D抽象类不能用于创建对象

3设有以下说明语句

char s1[]="hello";

char s2[]={'h','e','l','l','o'};

int b;

则下列语句中正确的是_______

A cout>>s1+s2; Bb=s1==s2;

C strlen(s1); Dstrcat(s1,s2);

4在_____情况下适宜采用inline来定义函数

A函数体含有循环语句

B函数体含有递归语句

C加快程序的运行速度

D函数代码多,不常被调用

5设有双引号括起来的说明语句:

int a[6][3]={0,2,8},(p)[3]=a;

以下选项中不能表示地址的表达式是______

A a[5] Bp[1]+0 Cp[1] Dp+0

6填空题

#include

class A{

int a;

public:

A(int aa=0) {a=aa;}

~A() {cout<<"Destructor A!"<<a<<endl;} p=""> </a<<endl;}>

};

class B:public A {

int b;

public:

B(int aa=0, int bb=0):A(aa) {b=bb;}

~B() {cout<<"Destructor B!"<<b<<endl;} p=""> </b<<endl;}>

};

void main()

{

B x(5), y(6,7);

}

程序输出的第一行是_________,第二行是____________-

7填空题

#include

char fun(char s, char p)

{

char p1=p;

for(; s ;){

if(!(s>=0 && s <='9'))

p++=s++;

s++;

}

p=0;

return p1;

}

void main(void)

{

char str1[]="abcd123456";

char str2[50];

cout<< fun(str1,str2) <<endl; p=""> </endl;>

cout<< str2 <<endl; p=""> </endl;>

}

程序的输出第一行是_______,第二行是_________

8填空题

#include

int f(int n, int x)

{

x+=1;

if(n==3) return x;

else return x+f(n+1,x+1);

}

void main()

{

cout<<f(3,1)<<endl; p=""> </f(3,1)<<endl;>

cout<<f(2,1)<<endl; p=""> </f(2,1)<<endl;>

cout<<f(1,1)<<endl; p=""> </f(1,1)<<endl;>

}

程序的输出第一行是____,第二行是_________,第三行是_________

9填空题

#include

class count

{

static int n;

public:

count(){

n++;

}

void show(){

cout<<n<<" p=""> </n<<">

}

~count() {

cout<<n<<endl; p=""> </n<<endl;>

n--;

}

};

int count::n=0;

void main()

{

count a;

ashow();

{

count b[4];

b[3]show();

}

ashow();

}

程序共输出_____行,其中第一行输出为_____,最后一行输出为______

C++程序设计 *** 作题

1完善程序

题目以下程序通过重载运算符””,实现求两个一维数组对应元素之积的运算。设数组a,b分别为:

int a[10]={1,2,3,4,5,6,7,8,9,10};

int b[10]={1,2,3,4,5,6,7,8,9,10};

则数组a和b对应元素相乘后所得到的运算结果为

{1,4,9,16,25,36,49,64,81,100}

提示:程序中通过重载运算符"=",实现了一维数组的赋值运算。

程序

#include

#include "stringh"

class Arr

{

int x[10];

public:

Arr(){

for(int i=0;i<10;i++)

x[i]=0;

}

Arr(int p) {

for(int i=0;i<10;i++)

__________;

}

Arr operator (Arr a){

Arr t;

for(int i=0;i<10;i++)

__________;

return t;

}

Arr operator =(Arr a){

for(int i=0;i<10;i++)

__________;

return this;

}

void show(){

for(int i=0;i<10;i++)

__________;

}

};

void main()

{

int a[10]={1,2,3,4,5,6,7,8,9,10};

int b[10]={1,2,3,4,5,6,7,8,9,10};

Arr arr(a),brr(b),c;

c = __________;

cshow();

}

2(改错题)

题目下列程序的功能为:任意输入一个4位自然数,然后输出该自然数的

各位数字所能组成的最小自然数例如:输入1593，输出1359;输入3002,

输出23。注意:如果输入了非法数据,如82,则程序应提示重新输入数据,

直到输入正确数据为止

程序

含有错误的程序为:

#include

void input(int a) //输入数据并检查其合理性，直到输入的数据合理为止

{

int n;

cout<<"Please input a 4-bits number：";

cin>>n;

while(n9999) {

cout<<n<<"\nplease re-input="" a="" number ："; // 请重新输入一个四位数

cin>>n;</n<

}

a=n;

}

int min(int a)

{

int x[4], m;

int i, j;

for(i=0; a; i++, a/=10)

x[i]= a/10;

for(i=0; i<3; i++)

for(j=i+1; j<4; j++)

if(x[i]>x[j])

{ m=x[i]; x[i]=x[j]; x[j]=m; }

for(i=0, m=0; i<4; i++)

m=(m+x[i])10;

return m;

}

void main(void) //注意：不允许修改主函数

{

int a;

input(&a);

cout<<a<<", p="" china!"转换成"so<="" ok="" result="<<min(a)<<endl;

1打开T盘中 myfbcpp,根据题目要求及程序中语句之间的逻辑关系对程序中的错误进行修改。程序中的注解可以不输入。

2改错时,可以修改语句中的一部分内容,增加少量的变量说明、函数原型说明或编译预

处理命令,但不能增加其他语句,也不能删除整条语句。

3将改正后的源程序文件myfbcpp必须放在T盘根目录下,供阅卷用。

3 （编程题）：

题目为使电文保密，往往按一定规律将其转换成密文，收报人再按约定的规律

将其译回原文。例如,将26个大小写字母分别看成-个圆环，可以按以以下规律将原

文转换成密文：将字母A转成E．即转换成其后的第四个字母，V转换成Z， W转换

成A，X转换成B．Y转换成C,Z转换成D．小写字母按同样的规律转换，如a转换成

e。字母按上述规律转换（加密），其它字符不变．如" margin:="" 0cm="" 0pt=""> </a<

Glmre!"。试建立一个类Encode．完成加密工作。

具体要求如下：

(1)私有数据成员

●char str：str指向存放原文字符串的动态内存空问。

(2)公有成员函数

●Encode(char s1) ：构造函数，根据参数s1指向的字符串的大小，动态申

请内存空问，让str指向该空间．用s1所指向的字符串初始化str指向的字符

串．

●~Encode() : 析构函数，释放str所指向的动态内存空问。

●void change(char s2) :将str所指向的原文字符串转换成密文,并将密文存

放到s2所指向的存储空间中。

●void print() : 输出原文

(3)在主函数中完成对给类的测试。定义两个字符数组text1和text2。先输入

一行字符串(原文)到text1中,用text1初始化一个Encode类的对象v,调用成员函数

输出原文,再调用成员函数change将获得的密文送到text2中,最后输出密文,当用

"OK China"作为测试用的原文时,程序输出的结果是:

OK China!

SO Glmre!

要求

打开T盘中myfccpp文件(空文件),编写后的源文件myfccpp必须保存在T盘的

根目录下,供阅卷用

1完善程序答案

x[i]=p++

tx[i]=x[i]ax[i]

x[i]=ax[i]

cout<<x[i]<<' p="" </x[i]<

arrbrr

2改错题答案

1 void input(int a) 修改为 void input(int a)

2 while(n9999) 修改为 while(n9999)

3 x[i]= a/10; 修改为 x[i]= a;

4 m=(m+x[i])10; 修改为: m=m10+x[i];

1、毫秒，timer

2、5，10，2

3、

dim int1 as integer ,int2 as integer

int1=0

int2=0

Do while int1<20

Int2=int1+int2

Int1=int1(int1+1)'死循环，每次这里运行后int1=0，总是满足int1<20

Loop

text1text=int2

4、-3

5、False

6、默认传址（ByRef），Byval

1,返回值类型、方法名、参数个数和类型

2，字节码，class

3，长度（或者叫元素个数）

4，继承，封装，多态

5，Myclass ，int y

6，public static void ，0，args[i]

7，

1） 这是哪一类java程序

控制台应用程序

2） 类A和类B的关系是

A是B的父类

3） 程序输出的结果是

a=1 d=20

a=1 d=20

a=1 d=20

a=30 d=Java program

9月25日 13:20 全国计算机等级考试二级笔试试卷

Visual Basic语言程序设计

（考试时间90分钟，满分100分）

2004年9月18日

一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）

下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：

A)text1maxlength=0 B)text1enabled=flase

C)text1visible=flase D)text1width=0

答案：B

(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是

A) Form1Name="VisualBasic窗体"

B) Form1title="VisualBasic窗体"

C) Form1Caption="VisualBasic窗体"

D) Form1Text="VisualBasic窗体”

答案:C

(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：

以下能实现上述 *** 作的程序段是

A) Private Sub HScroll_Change()

Text1Text=HScroll1Value

End Sub

B) Private Sub HScroll_Click()

Text1Text=HScroll1Value

End Sub

C) Private Sub HScroll_Change()

Text1Text=HScrollCaption

D) Private Sub HScroll_Click()

Text1Text=HScrollCaption

End Sub

答案A

(4) 设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是

A) 把Caption属性设置为&Open

B) 把Caption属性设置为O&pen

C) 把Name属性设置为&Open

D) 把Name属性设置为O&pen

答案A

(5) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

x=InputBox("Input")

Select Case x

Case 1,3

Print "分支 1"

Case Is >4

Print "分支 2"

Case Else

Print "Else 分支 "

End Select

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是

A） 分支1 B） 分支2 C） Else分支 D) 程序出错

答案C

(6) 以下关于MsgBox的叙述中，错误的是

A） MsgBox函数返回一个整数

B) 通过MsgBox函数可以设置信息框中图标和按钮的类型

C) MsgBox语句没有返回值

D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量

答案D

(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔05秒发生一次计时器事件，则以下正确的属性设置语句是

A）Timer1InterVal=05 B) Timer1Interval=5

C) TimerInterval=50 D) Timer1Interval=500

答案D

(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Static x As Integer

Cls

For i=1 To 2

y=y+x

x=x+2

Next

Print x,y

End Sub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是

A) 4 2 B) 12 18 C) 12 30 D) 4 6

答案：B

(9) 以下关于多重窗体程序的叙述中，错误的是

A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体

B）在多重窗体程序中，各窗体的菜单是彼此独立的

C）在多重窗体程序中，可以根据需要指定启动窗体

D）对于多重窗体程序中，而且单独保存每个窗体

答案：A

(10)以下关于文件的叙述中，错误的是

A）顺序文件中的记录一个接一个地顺序存放

B）随机文件中记录的长度是随机的

C）执行打开文件的命令后，自动生成一个文件指针

D）LOF函数返回给文件分配的字节数

答案B

(11) 以下叙述中错误的是

A）事件过程是响应特定事件的一段程序

B）不同的对象可以具有相同名称的方法

C）对象的方法是执行指定 *** 作的过程

D）对象事件的名称可以由编程者指定

答案D

(12) 以下合法的Visual Basic标识符是

A) ForLoop B) Const C) 9abc D) a#x

答案A

(13) 当一个复选框被选中时，它的Value属性的值是

A) 3 B) 2 C) 1 D) 0

答案C

(14) 表达式 5 Mod 3+3\52的值是

A) 0 B) 2 C)4 D) 6

答案B

(15) 设x=4,y=8,z=7，以下表达式的值是

x<y And (Not y>z) Or z<x

A) 1 B) -1 C) True D) False

答案D

(16) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

a$="VisualBasic"

Print String(3,a$)

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A） VVV B) Vis C) sic D) 11

答案A

(17) 设有如下程序段：

x=2

For i=1 To 10 Step 2

x=x+i

Next

运行以上程序后，x的值是

A) 26 B) 27 C) 38 D) 57

答案B

(18) 以下叙述中错误的是

A) 在KeyPress事件过程中不能识别键盘的按下与释放

B) 在KeyPress事件过程中不能识别回车键

C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母

D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

答案B

(19) 执行如下两条语句，窗体上显示的是

a=98596

Print Format(a,"$00,0000")

A) 0,00986 B) $986 C) 986 D) $0,00986

答案D

(20)在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Private Sub Command1_Click()

CommonDialog1FileName =""

CommonDialog1Filter="All file||(Doc)|Doc|(Txt)|Txt"

CommonDialog1FilterIndex=2

CommonDialog1Dialogtitle="VBTest"

CommonDialog1Action=1

End Sub

对于这个程序，以下叙述中错误的是

A） 该对话框被设置为“打开”对话框

B） 在该对话框中指定的默认文件名为空

C） 该对话框的标题为VBTest

D） 在该对话框中指定的默认文件类型为文本文件(Txt)

答案D

(21) 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：

Private Sub Command1_Click()

Dim a As Integer

a=10

Call g(Form2,a)

End Sub

Private Sub g(f As Form,x As Integer)

y=IIf(x>10,100,-100)

f,Show

fCaption=y

End Sub

运行以上程序，正确的结果是

A) Form1的Caption属性值为100 B) Form2的Caption属性值为-100

C) Form1的Caption属性值为-100 D) Form2的Caption属性值为100

答案B

(22)在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click()

Dim x As Integer

Static y As Integer

x=10

y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

x1=x1+2

y1=y1+2

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A) 10 5 B) 12 5 C) 10 7 D) 12 7

答案D

(23)设有如下程序

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer

Dim n As Integer

n=InputBox("输入数据")

If n<10 Then

Call GetArray(a,n)

End If

End Sub

Private Sub GetArray(b() As Integer,n As Integer)

Dim c(10) As Integer

j=0

For i=1 To n

b(i)=CInt(Rnd()100)

If b(i)/2=b(i)\2 Then

j=j+1

c(j)=b(i)

End If

Next

Print j

End Sub

以下叙述中错误的是

A） 数组b中的偶数被保存在数组c中

B） 程序运行结束后，在窗体上显示的是c数组中元素的个数

C） GetArray过程的参数n是按值传送的

D） 如果输入的数据大于10，则窗体上不显示任何显示

答案C

(24)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click()

Dim a

a= Array(1,2,3,4,5)

For i=1 To UBound(a)

a(i) = a(i)+i-1

Next

Print a(3)

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是

A) 4 B) 5 C) 6 D)7

答案B

(25)阅读程序

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum = 0

arr = Array(1,3,5,7,9,11,13,15,17,19)

For i=1 To 10

If arr(i)/3 = arr(i)\3 Then

Sum =Sum+arr(i)

End If

Next i

Print Sum

End Sub

程序运行后，单击窗体，输入结果为

A）13 B）14 C）27 D） 15

答案C

(26)在窗体上画一个名称为File1的文件列表框，并编写如下程序：

Private Sub File1_DblClick()

x=Shell(File1FileName,1)

End Sub

以下关于该程序的叙述中，错误的是

A) x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)

B)双击文件列表框中的文件，将触发该事件过程

C)要执行的文件的名字通过File1FileName指定

D）File1中显示的是当前驱动器、当前目录下的文件

答案A

(27) 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。

编写如下程序：

Private Sub Form_Load()

Timer1Enabled=False

End Sub

Private Sub Command1_Click()

Timer1Enabled=True

End Sub

Private Sub Timer1_Timer()

If Label1Left<Width Then

Label1Left = Label1Left + 20

Else

Label1Left=0

End If

End Sub

程序运行后，单击“开始”按钮，标签在窗体中移动。

对于这个程序，以下叙述中错误的是

A) 标签的移动方向为自右向左

B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D）标签按指定的时间时隔移动

答案A

(28)执行以下程序段

a$="abbacddcba"

For i=6 To 2 Step -2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(X&Y&z)

Next i

Print z

输出结果为

A)ABA B）BBABBA C)ABBABA D)AABAAB

答案B

(29)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Option Base 1

Private Sub Command1_Click()

Dim a As Variant

a=Array(1,2,3,4,5)

Sum=0

For i=1 To 5

Sum = sum+a(i)

Next i

x=Sum/5

For i =1 To 5

If a(i)>x Then Print a(i);

Next i

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A）1 2 B） 1 2 3 C) 3 4 5 D） 4 5

答案D

(30)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

Model1代码如下：

Public x As Integer

Public y As Integer

Sub S1()

x =1

S2

End Sub

Sub S2()

y=10

Form1Show

End Show

Model2的代码如下：

Sub Main()

S1

End Sub

其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是

A） Form1->Model1->Model2

B) Model1->Model2->Form1

C) Model2->Model1->Form1

D） Model2->Form1->Model1

答案C

二、填空题(每空2分，共30分)

请将每空的正确答案写在答题卡1～15序号的横线上，答在试卷上不得分。

(1) 设有如下程序段：

a$="BeijingShanghai"

b$=Mid(a$,InStr(a$,"g")+1)

执行上面的程序段后，变量b$的值为__Shanghai___。

(2) 以下程序段的输出结果是___3____。

num =0

While num<=2

num = num+1

Wend

Print num

(3) 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load()

For i=1 To 100

If i Mod 7 =0 Then

__List1AddItem i____

End If

Next

End Sub

Private Sub Command1_Click()

Sum =0

For i=0 To__List1ListCount-1___

Sum =Sum+__List1List(i)_____

Next

Text1Text=Sum

End Sub

(4) 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Command1_Click()

Randomize

n=CInt(Text1Text)

n1=0

n2=0

For i=1 To__n___

r=Int(Rnd2)

If r=___1____Then

n1=n1+1

Else

n2=n2+1

End If

Next

Text2Text=n1

Text3Text=n2

End Sub

(5) 阅读程序：

Option Base 1

Private Sub Form_Click()

Dim a(3) As Integer

Print "输入的数据是：";

For i=1 To 3

a(i)=InputBox("输入数据")

Print a(i);

Next

Print

If a(1)<a(2) Then

t=a(1)

a(1)=a(2)

a(2)=___t____

End If

If a(2)>a(3) Then

m=a(2)

ElseIf a(1)>a(3) Then

m=___a(3)___

Else

m=__a(1)___

End If

Print "中间数是：";m

End Sub

程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。

(6) 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。

Private Sub Command1_Click()

Sum = 0

For i=0 To 4

Sum=Sum+__Label1(i)caption__

Next

___Label2caption__=Sum

End Sub

(7) 在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值;如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。

Option Base 1

Dim a(3,2) As Integer

Private Sub Command1_Click()

For i=1 To 3

For j=1 To 2

__a(i,j)__=i+j

Next j

End Sub

Private Sub Command2_Click()

For j=1 To 3

For i=1 To 2

s=s+__a(j,i)___

Next i

Next j

Text1Text= __s__

End Sub

评分标准和参考答案

一、选择题（(1)—(20)每小题2分，(21)—(30)每小题2分，共70分）

(1)－(10) BCAAC DDBAB

(11)－(20) DACBD ABBDD

(21)－(30) BDCBC AABDC

二、填空题(每空2分，共30分)

1、(1)"Shanghai"

2、（2）3

3、（3）list1additem i (4) list1listcount-1 (5) list1list(i)

4、（6）n (7) 1

5、（8）t (9) a(3) (10) a(1)

6、（11）label1(i)caption (12) label2caption

7、（13）a(i,j) (14) a(j,i) (15) s (注意:i,j 要换位置,别给迷惑到了)

祝你能顺利通过拉~！

1,静态

2,msgbox函数

3,Filter

4,click

5,9个

6,整个程序

7,属性,方法,事件

8,form1caption="基本控件的使用"

9,UDEN

10,val函数

以上就是关于20分求asp.net高手做几道程序题，对于懂的哥们很简单，分数不多，还希望大家能帮个忙，谢谢。全部的内容，包括:20分求asp.net高手做几道程序题，对于懂的哥们很简单，分数不多，还希望大家能帮个忙，谢谢。、java 的编程填空题目 谢谢大家 帮个忙 急~~~~、一、程序改错题（40%）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！