189 8069 5689
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、不知道
下一篇题目太猛了……
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
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 方法
我很喜欢这种题目
-------------------------------------------------------------------------
第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