上机练习1.doc

判断题：

Word操作题：
1、将文章标题设置为黑体、三号、居中对齐、加粗。
2、将文章中的表格外边框设置为红色、3磅。
3、将文章中的表格底纹设置为绿色填充色。
4、将表格对齐方式设置为居中。
5、保存操作结果。

安庆市信息技术调研
姓名
班级
性别
出生年月
备注

步骤：
选择标题字“安庆市信息技术调研”，设置为黑体、三号、居中对齐、加粗。
把鼠标移在表格上面任意位置处，点击菜单栏“表格（A）”下拉菜单中“表格属性”—“边框和底纹”—颜色设置为红色，宽度设为3磅
继续设置“底纹”--选取“绿色”为填充色，对齐方式为水平居中，垂直居中。
程序设计：
1.a、b、c为区间[1,100]的整数，统计使等式c/(a*a+b*b)=1成立的所有解的个数.(删除算法中的（1）并填写正确的语句）
Private Sub Command1_Click()
Dim num, a, b, c
num = 0
For a = 1 To (1) ------ 10
For b = 1 To 10
For c = 1 To 100
If a * a + b * b = c Then
num = num + 1
End If
Next c
Next b
Next a
func = "c/(a*a+b*b)=1的解有" & num & "个"
Text1.Text = func
out (func)
End Sub
分析：区间为[1，100]，由a和b两个数字相乘得到，最大值为100，而b最大值10,所以a的最大值也为10，故填写10

2、随机生成[10,1000]范围内的10个整数，并找出该数列的最小值。(删除算法中的（1）并填写正确的语句）
Private Sub Command1_Click()
Dim i, k
Dim min
min = Int(Rnd * 90 + 10)
For i = 2 To 10
k = Int(Rnd * 90 + 10)
If min > k Then min = (1)
Next
func = k

Text1.Text = func
out (func)
End Sub

分析： rnd为随机函数， min为最小值，第一次产生的数设为最小值，然后依次与其余9个数比较，如果当前最小数比新生成的随机数大，则将新生成的数定义为最小数。
思考：如果找最大数呢？

3、统计5000以下符合条件的自然数的个数。条件是：千位数字与百位数字之和等于十位数字与个位数字之和，且千位数字与百位数字之和等于个位数字与千位数字之差的10倍。 （删除算法中的（1）并填写正确的语句）
Private Sub Command1_Click()
Dim i, g, s, b, q
Dim sum
sum = 0
For i = 1 To 5000
g = i Mod 10
s = (i \ 10) Mod (1)
b = (i \ 100) Mod 10
q = i \ 1000
If q + b = s + g And q + b = 10 * (g - q) Then
sum = sum + 1
End If
Next
func = sum
Text1.Text = func
out (func)
End Sub

分析：由变量名可知，g 个 s 十 b 百q 千 （首字母缩写）
条件：两个并且关系
算法技巧：由mod运算得出相应数字（余数）

EXCEL操作题：

6