版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
else
"不是完全数"
End
If
10、*
计算
E=1+1/1!+1/2!+...1/N!，精确到1E-6。
n
=
0:
t
=
1
Term
=
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
Do
n
=
n
+
1
t
=
t
/
n
Term
=
Term
+
t
Loop
While
t
>=
0.000001
Term
11、*
下面程序用于求小于和等于50的自然数的平方和，请填空。
*
程序段如下：
private
sub
form_click()
dim
sum
as
long
sum=0
for
i=1
to
50
sum=HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。um+i^2
next
i
sum
end
sum
12、*
下面程序的功能是随机产生一个三位数正整数，将该数和该数的逆序同时输出。
Private
Sub
Form_Click()
Dim
a%,
s
As
String,
c
As
String
Randomize
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
=
Int(Rnd
*
(999
-
100
+
1)
+
100)
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
=
Format(a)
c
=
Right(s,
1)
&
Mid(s,
2,
1)
&
Left(s,
1)
"三位数是"
&
a
a
&
"的逆序是"
&
c
End
Sub
13、*
使用Select
Case结构将一年中的12个月份，分成四个季节输出。
Private
Sub
Form_Click()
Dim
m%
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
=
InputBox("请输入月份")
Select
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。case
m
Case
1,
2,
3
m
&
"月是第一季度"
Case
4,
5,
6
m
&
"月是第二季度"
Case
7,
8,
9
m
&
"月是第三季度"
Case
10,
11,
12
m
&
"月是第四季度"
End
Select
End
Sub
14、*
根据π/4=1-1/3+1/5-1/7+…..+(-1)n-1/(2n-1)，分别求n=1000、1500、2000、2500时π的近似值。
*
程序代码如下：：
Private
Sub
Form_Click()
For
i
=
1000
To
2500
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。step500
s
=
0
f
=
1
For
j
=
1
To
i
t
=
1
/
(2
*
j
-
1)
s
=
s
+
f
*
t
f
=
-f
Next
j
"i=";
i,
"pi=";
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
Next
i
End
Sub
15、*
使用双循环实现正三角形输出
*
***
*****
*******
*********
***********
*************
***************
*****************
*******************
*
程序代码如下：
Private
Sub
Command1_Cick()
For
i
=
1
To
10
Tab(25
-
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。);
For
j
=
1
To
2
*
i
-
1
"*";
Next
j
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
Next
i
End
Sub
16、*
执行下列事件代码：
Private
Sub
Command1_Click()
Dim
MyString
As
String
Dim
MyLen
As
Integer
MyString
=
"Hello
World"
MyLen
=
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。+len(MyString)
MyLen
End
Sub
在弹出的消息对话框中的内容是：13。
17、*
判断正整数M是否为素数。
*
程序段如下：
FLAG
=
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。:M=InputBox("请输入M的值")
For
I
=
2
To
Sqr(M)
If
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。%I
=
0
Then
FLAG
=
0
Exit
For
End
If
Next
I
If
FLAG
=
1
Then
"YES"
Else
"NO"
End
If
18、*
在窗体上画一个命令按钮，然后编写如下事件过程：
Private
Sub
Command1_Click()
Dim
a
As
String,
b
As
Integer
a
=
InputBox("请输入一个数字")
b
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
InputBox("请输入一个数字")
"s";
a;
b;
"ok"
End
Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为：s321
456
ok。19、*
在窗体上画一个名称为Command1的命令按钮并编写下列事件过程，程序运行后，则窗体上显示的是10。
Private
Sub
Command1_Click()
x
=
Int(Rnd
*
(20
-
1
+
1)
+
1)
Select
Case
x
Case
1
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。o
20
y
=
10
Case
11,
13,
15,
17
y
=
30
Case
Is
>
10
y
=
50
End
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。elect
y
End
Sub20、*
下列程序段的执行结果是“HELLO!
ZHANG!
GOOD
MORNING!”。
A
=
"HELLOGOODMORNING"
B
=
"WANGZHANGLI"
C
=
Left(A,
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。)
+
"!"
D
=
Right(A,
7)
E
=
Mid(A,
6,
4)
F
=
Mid(B,
Len(B)
-
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。,
5)
+
"!"
G
=
E
+
"
"
+
D
+
"!"
H
=
C
+
"
"
+
F
H
+
"
"
+
G
21、*
下列程序段的执行结果为-3
3。
X
=
5
Y
=
-20
If
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。OT
X
>
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
Then
X
=
Y
-
3
Else
Y
=
X
+
3
X
-
Y;
Y
-
X
22、*
古代数学家在编写《算经》时，提出了一个不定方程问题，即著名的“百鸡问题”：
*
鸡翁一，值钱五，母鸡一，值钱三，雏鸡三，值钱一。百钱卖百鸡，问鸡翁、母、雏，各几何？
*
程序代码如下：
Private
Sub
Form_Click()
Dim
i
As
Integer,
j
As
Integer,
k
As
Integer
Tab(5);
"公鸡";
Tab(15);
"母鸡";
Tab(25);
"小鸡"
For
i
=
0
To
20
For
j
=
0
To
30
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
=
100
-
i
-
j
If
5
*
i
+
3
*
j
+
k
/
3
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
100
Then
Tab(5);
i;
Tab(15);
j;
Tab(25);
k
End
If
Next
j
Next
i
End
Sub23、*
在窗体上画一个文本框，然后编写如下事件过程：
Private
Sub
Text1_KeyPress(KeyAscii
As
Integer)
Dim
Char
As
String
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。har
=
Chr(KeyAscii)
KeyAscii
=
Asc(Ucase(Char))
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。tring(6,
KeyAscii)
End
Sub
程序运行后，如果在键盘上输入小写字母“a”，则窗体显示的内容为：AAAAAA。
24、*
在图形控件内输出左下角三角形式的九九乘法表
*
程序代码如下：
Private
Sub
Picture1_Click()
Dim
se
As
String
Picture1.Print
Tab(35);
"九九乘法表"
Picture1.Print
Tab(35);
""
For
i
=
1
To
9
For
j
=
1
To
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
se
=
i
&
"×"
&
j
&
"="
&
i*j
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。rint
Tab((j
-
1)
*
9
+
1);
se;
Next
j
Picture1.Print
Next
i
End
Sub
25、*
在窗体上画一个名为Command1的命令按钮。单击命令按钮，执行如下事件过程:
Private
Sub
Command1_Click()
a$
=
"software
and
hardware"
b$
=
Right(a$,
8)
c$
=
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。id(a$,
1,
8)
MsgBox
a$,
,
b$,
c$,
1
End
Sub
则在弹出的信息框（见图
t2-2-1.jpg
）的标题栏中显示的信息是hardware26、*
输出如下图形。
*********
$$$$$$$
*****
$$$
*
*
程序段如下：
For
I
=
5
To
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
Step
-1
Tab(10
-
I);
If
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。I
Mod
2
<>
0
Then
String(2
*
I
-
1,
"*")
Else
String(2
*
I
-
1,
"$")
End
If
Next
I27、*
下面的事件过程随机产生一个3位正整数，并对其逆序处理，最后将产生的数与逆序数相隔4个字符显示在一行上。例如，产生345，输出345
543。
Private
Sub
Form_Load()
Dim
a
As
Integer,
s
As
String,
b
As
Integer
Randomize
a
=
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。nt(Rnd
*
900
+
100)
s
=
LTrim(Str(a))
b
=
Ltrim(Right(s,
1)
&
Mid(s,
2,
1)
&
Left(s,
1))
a;
Spc(4);
b
End
Sub28、*
求T=N!
*
程序段如下：
T
=
1
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。=InputBox("请输入数N的值")
Do
While
I
<=
N
T
=
T
*
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
I
=
I
+
1
Loop
Str(N)
&
"的阶乘为:
";
T
29、*
输出下列文字图形：
AAAA
BBB
CC
D
*
程序代码如下：
Private
Sub
Form_Click()
For
i
=
1
To
4
For
j
=
1
To
5-i
Chr$(64
+
i);
Next
j
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
Next
i
End
Sub
30、*
求S=1！+2！+…10!
*
程序段如下：
s
=HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。
t
=
1
For
i
=
1
To
10
t=
t
*
i
s
=
s
+
t
Next
i
s
31、*
有如下程序段：
Dim
a
As
String,
b
As
String
a
=
"12345":
b
=
"abcde"
For
i
=
1
HTMLCONTROLForms.HTML:Text.1错误!未找到引用源。o
5
c
=
C
+
Left(a,
i)
+
Right(b,
i)
Next
i
c
运行后，输出的结果是“1e12de123cde1234bcde12345abcde”。32、*
执行如下语句：
D
=
HTMLCONTROLFor
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2026年北滘镇碧江中学招聘临聘教师备考题库带答案详解
- 2026年天津市第一中心医院人事代理制工作人员招聘17人备考题库（第二批）及1套参考答案详解
- 2026年宁波农商发展集团有限公司招聘15人备考题库及答案详解一套
- 2026年人民交通出版社招聘13人备考题库及1套完整答案详解
- 2026年南宁市隆安县残联公开招聘乡镇残疾人专职委员备考题库及1套参考答案详解
- 2026年丁蜀镇公开招聘国企编外工作人员备考题库及完整答案详解一套
- 2026年兰州市读者传媒兰州市招聘备考题库及答案详解1套
- 2026年上海市闵行区翻译协会秘书处（办公室）管理人员招募备考题库完整答案详解
- 2026年上海金茂建筑装饰有限公司招聘备考题库及参考答案详解一套
- 2026年台江县民族中医院第四次公开招聘备案制专业技术人员7人实施备考题库含答案详解
- 2026年尼勒克县辅警招聘考试备考题库必考题
- 2026年广东省高中学业水平考试春季高考语文试卷（含答案）
- 2024年黑龙江三江美术职业学院单招职业适应性测试题库附答案解析
- 成都传媒集团招聘笔试题库2026
- 污泥处置合同协议
- 年度 IT 维保服务报价表-模板
- 河南轻工职业学院2025年公开招聘工作人员（硕士）备考题库及答案详解一套
- 2025年嘉兴市经英人才发展服务有限公司城南分公司招录法律专业人才及法律辅助人员16人考试笔试模拟试题及答案解析
- 大学计算机教程-计算与人工智能导论（第4版）课件 第9章 自然语言处理
- (2025年)会计类的考试试题及答案
- DB15∕T 4178.4-2025 奶山羊智慧牧场 第4部分：发情监测
评论
0/150
提交评论