Option Strict Off
创新互联公司主要从事成都做网站、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务岱岳,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Dim j As Integer
Dim A(9) As Short
Dim D(9) As Short
Dim i As Short
Dim B As Short
Dim C As Short
Dim F As Short
Dim G As Boolean
Dim H() As Short
Dim K As Short
Dim S As String
C = 32767
For i = 1 To 10
A(i - 1) = CShort(InputBox("输入第 " i "个数"))
If B A(i - 1) Then B = A(i - 1)
If C A(i - 1) Then C = A(i - 1)
D(i - 1) = Int(Rnd() * 100 + 0.5)
If F D(i - 1) Then F = D(i - 1)
Next i
For i = 2 To 100
For j = 2 To Int(System.Math.Sqrt(i) + 0.5)
'UPGRADE_WARNING: Couldn't resolve default property of object j. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: Mod has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
If i Mod j 0 Then
G = True
Else
G = False
Exit For
End If
Next j
If G = True Then
ReDim Preserve H(K)
H(K) = i
K = K + 1
End If
Next i
S = "2;"
For i = 0 To K - 1
S = S H(i) ";"
Next i
MsgBox("最大数为：" B "；最小数为：" C)
MsgBox("最大的随机数为：" F)
MsgBox("1--100之间共有" K + 1 "个素数：" S)
End Sub
End Class
上次毕业生设计的时候也看到过这种设计作品，而且做的也很好，在这里给您介绍一下，当然仅仅供参考，一些很好的细节都是被忽略的，但是如果您认真做到的话就会很显彩拉风的。
你可以做一个基于IE浏览器的形式，这样的话编程简单，用ASP或JSP就可以简单的实现，不过虽然实现简单，不过你还要考虑一些小问题，比如，考试界面的全屏化，不可以显示IE功能菜单，把菜单隐藏起来，同时不可以最小化窗口和切换窗口，因为你要是在考试系统下都可以随便切换窗口出去的话，考生很容易访问别的磁盘或者是上网查一些资料等，这样做就限制了考试的其他做法。
当然这只是其中的一点，还有其他的一些问题，比如你源程序的保密性，等，这是不允许个人随便查看源程序的。
当然，另外的一点就是更新，你不可能做一个程序之适合于这一次考试，程序的更新也要做好，就像是做后台管理一样。
具体到程序的编写，那就显得计划化了许多，不过我们这个学期刚学习JSP，而且ASP我也是上个学期自己学习的，不过你要是真想实现的话也不是很大的问题。
个人提供的信息倾其全部也差不多就这些。当然，程序编写软件看你选什么程序了。
我很喜欢这种题目
-------------------------------------------------------------------------
第7题，问题出在两方面
Public Function CalculateArea(ByVal SideBase As Double, ByVal Height As Double, _ Optional
ByVal AssignToArea As Boolean = False) As Double
Dim Area As Double = (SideBase * Height) / 2
中间的 _ 有问题，应该去掉
还有objShape = CType(objShape, clsTriangle) 有错误，不能转换
注释掉objShape = CType(objShape, clsTriangle)
删除_后，得到结果
true
false
-330
--------------------------------------------------------------------------
第8题，就是以acc_grp_cust_tbl表为基础，查找cust_tbl并输出
一般的话使用涉及两个表的话使用SHAPE语句（以SQL为基础的语句）
虽然两者使用时差不多，但是理论比较难懂，我这里也不讲了，我使用ADO+SQL方法
先说明一下程序中的一个细节，也是问题比较容易忽略的
1400 0 1 2
1500 3 4
1600 5
说明一个问题Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是数值，而是类似字符的东西（因为可能是
备注）
定义rsgrp对应acc_grp_cust_tbl ，rscust对应cust_tbl
预先设置好rsgrp和rscust的连接(使用VB的方法，可以移植到VB.NET上）
do until rscust.eof
strline=rscust(0) " "
strSQL="SELECT * FROM CUST_TBL WHERE cust_id='" RSGRP(1) "' OR CUST_ID='" RSGRP(2) "' OR CUST_ID='" RSGRP(3) "' OR CUST_ID='" RSGRP(4) "'"
RSGRP.OPEN STRSQL
if rsgrp.recordcount0 then
rsgrp.movefirst
do until rsgrp.eof
strLine=strline rscust(3) " " rscust(2) "/"
rsgrp.movenext
loop
end if
rscust.close
strline=left(strline ,len(strline)-1)
'去除最后一个"/"
console.writeline(strline)
loop
1.C
2.A
3.A
4.A
5.A
6.C
7.D
8.A
9.A
10.D
11.D
12.D
13.B
14.D
15.A
16.B
17.C
18.A
1.A
2.B
选择题
1 下面4个选项中属于字符型数据的是( )
A "Hello" B Hello' C Hello D #Hello
2 初学者、业余爱好者在开发基于windows的应用程序时适宜使用的开发工具是（）。
A Visual Studio 2005 Express Edition
B Visual Studio 2005 Team Test Edition
C Visual Studio 2005 Team Developer Edition
D Visual Studio 2005 Team Architect Edition
3 若dim a() as integer={1,2,3,4,5},则a.length的值（）
A 是4 B 是5 C Null D 是6
4 定义字符串变量：
Dim strInput As String=“VisualBasic2005”
Dim strSubStr1 As String
计算子串：strSubStr1 = strInput.Remove(2, 4)
则strInput的值为：
A VisualBasic B ViBasic2005 C sual D alBa
5 要使TextBox控件能够显示多行，应设置（）属性为True
A VisibleB Enabled C MultiLine D Text
6 下列赋值语句正确的是( )
A A=B+CB –B=A C 2=A+B D B+C=A
7 当在文本框中输入“ABCD”时，标签上显示的是（）。
Sub TextBox1_TextChanged(……) Handles TextBox1.TextChanged
Label1.Text =TextBox1.Text
End Sub
A ABCD B A C AABABCABCD
B
C
D D A
Ab
ABC
ABCD
8 Sub过程与Function过程最根本的区别是()
A Function过程可以有形参，Sub过程不可以
B Sub过程可以直接使用过程名调用，而Function过程不可以
C Sub过程不能返回值，而Function过程能返回值
D 两种过程的参数传递方式不同
9 对下列程序段，说法正确的是()###btnQuit.SetBounds(10,80,200,50)
A btnQuit对象的左边界距窗体的左边界是10像素，上边界距窗体的上边界为80像素
B btnQuit对象的左边界距屏幕的左边界为200像素，上边界距屏幕的上边界为50像素
C btnQuit对象的宽度为200像素，高度为80像素
D btnQuit对象的高度为80像素，宽度为200像素
10 Dim str1,str2 As String ### str1="北京奥运2008" ### str2=str1.Substring(0,4) ### 那么str2的值为（ ）
A 北京 B 北京奥运 C 奥运 D 是2008
11 按照匈牙利表示法，前缀为lbl表示哪一个控件。
A Button B Label C ListBox D TextBox
12 数学关系式3x10表示成正确的vb.net表达式为
A 3=x=10 B 3x and x10 C x3 or x10 D 3x x10
13 要使文本框中的文字不能修改，应对（）属性进行设置。
A Locked B Visible C Enable D ReadOnly
14 按照匈牙利表示法，TextBox控件的前缀是（）
A btn B lst C mnu D txt
15 调用子过程后可以通过形参来改变两个实参值的语句是（）。
A Sub f1(ByVal n as integer,ByVal m as Integer)
B Sub f2(ByRef n as integer,ByVal m as Integer)
C Sub f3(ByRef n as integer,ByRef m as Integer)
D Sub f4(ByVal n as integer,ByRef m as Integer)
16 数学关系式x10或者x0表示成正确的vb.net表达式为
A 10x0 B x0 and x10 C x0 or x10 D 0x x10
17 可以同时删除字符串前导和尾部空白的函数是( )
A Ltrim B Rtrim C Trim D Mid
18 以下变量名是正确的（）
A 是_a1 B 是123a C 是For D 是as
19 下面程序求两个数中的小数（）不正确
A min1=iif(xy,x,y)
B if xy then ###min1=x###else###min1=y###end
C ifmin1=IIF(xy,y,x)
D if yx then ###min1=y ###end if###min1=x
20 下列程序段的执行后，变量a,k的值分别为
Dim a,k as integer
a=5
For k=1 To 0
a=a * k
Next k
A -1 6 B -1 16 C 1 5 D 11 21
AABBC ACCAB BBDDC CCADC
选择题百度文库中还有好多
操作题
1．请编写函数fun()，其功能是：计算2-500之间（包括2，500）素数的个数,并将其作为返回值。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。
2．请编写函数fun(a)，其函数功能是：计算a的阶乘，并返回结果。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
3．．请编写函数f(x)，其功能是：判断一个大于或等于3的正整数是否是素数，
如果是素数函数返回1，否则返回0。例如：输入37，函数返回1；输入40，函数返回0。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“判断”按钮）。
4．请编写函数f(a)，其功能是：计算一个长度为5的一维整形数组a中最大值与最小值的差，并作为函数的返回值。
例如：从文本框中输入1 5 8 9 2，差为8。
数组中的值需要自己在文本框中输入。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。
重庆分公司
重庆分公司
