关于vb.net常考试题的信息

VB.net的考卷题型是怎么样的？

1、(X=a) And (X=b)

10年的大关网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整大关建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“大关网站设计”,“大关网站推广”以来，每个客户项目都认真落实执行。

2、Msgbox()

3、13

4、实现窗体隐藏

5、11

6、Function

7、TextBox1.Focus()

8、.sln （似乎不区分语言，统一的）

9、方法

10、C# .NET （我也用它设计过:）

11、Form1.Close()

12、Windows 窗体

13、不知道

14、声明常量

15、s = a.ToString()

16、GetError

17、不知道

下一篇题目太猛了……

VB.NET程序设计题，紧急啊，明天考试了

Public Class Form3

Dim A(19) As Integer '声明数组20个

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = ""

Label3.Text = ""

Randomize()

Dim i As Integer

For i = 0 To UBound(A)

A(i) = CInt(Rnd() * 400 + 100)'随机数100~500

Label1.Text = A(i)  "  "

If (i + 1) Mod 5 = 0 Then  '每5个数就换行

Label1.Text = vbCrLf

End If

Next

Dim mina As Integer

mina = Amin(A)

If mina  0 Then

Label3.Text = "比第一个数组元素值大的数组元素中值最小的是："  mina

Else

Label3.Text = "没有比第一个数组元素大数！"

End If

End Sub

Function Amin(ByVal Aa() As Integer) As Integer

Dim first As Integer

Dim tmpmin As Integer

Dim j, i As Integer

Dim tmpa() As Integer = A

first = A(0)  '第一个数出来

For j = 1 To UBound(tmpa) ’从第二个数冒泡

tmpmin = tmpa(j)

For i = j To UBound(tmpa)

If tmpa(i)  tmpmin Then '从小数到大数冒泡

tmpa(j) = tmpa(i)

tmpa(i) = tmpmin

tmpmin = tmpa(j)

End If

Next

Next

For i = 0 To UBound(tmpa)

If tmpa(i)  first Then ’从小数开始比较，如果小比第一个元数大就退出

tmpmin = tmpa(i) ' 取到比第一个元数大的数

Exit For

End If

Next

Return tmpmin '返回值

End Function

End Class

《vb.net程序设计》题目

1.目前.NET开发环境提供了那些程序设计语言的开发功能：visual C#和visual basic ，其实还有J#2.JIT是什么的缩写：Just-In-Time3.对象的什么属性在程序运行过程中，只能被引用，不能被修改：不记得了

4.要使某个控件在程序启动后，能看见，但不能用，应使该控件的enabled属性为：false

5.程序启动后，要使某个控件获得焦点，应使用该控件的 Focus 方法

6.checkbox控件的 Checked 属性决定了该控件的状态

7.要使textbox控件在程序启动后，只能显示只定内容，不能修改，应使readonly属性值为：true8.滚动条控件的 Value 属性值，反映了滚动条滑快的当前取值

9.改变窗体的标题，应修改窗体的 Text 属性

10.程序运行过程中，要向listbox控件中添加一项，应该使用 Items.Add 方法

还有两道vb.net面试题，请大家帮忙，谢谢。

我很喜欢这种题目

-------------------------------------------------------------------------

第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