几道VB题选择1.在文本框输入,ABCD,四个字符时,窗口上的显示是__________.Sub TextBox1_Te

几道VB题
选择
1.在文本框输入,ABCD,四个字符时,窗口上的显示是__________.
Sub TextBox1_TextChanged(……) Handles TextBox1.TextChanged
Label1.text &=Textbox1.Text
End Sub
A． ABCD B．A C． AABABCABCD D． A
B AB
C ABC
D ABCD
2.下列程序段不能分别正确显示1!、2!、3!、4!的值的是__________.
A． For i = 1 To 4
n = 1
For j = 1 To i
n = n * j
Next j
MsgBox(n)
Next i
B． For i = 1 To 4
For j = 1 To i
n=1
n = n * j
Next j
MsgBox(n)
Next i
C． n = 1
For j = 1 To 4
n=n*j
MsgBox(n)
Next j
D．n = 1
j = 1
Do While j< = 4
n = n * j
MsgBox(n)
j=j+1
Loop
填空
1．当对文本框的ScrollBars属性设置为ScrollBars.Vertical（有垂直滚动条）,但没有垂直滚动条显示,是没有对 __________ 属性设置为True的原因.
2．对For i = 5 To -5 Step -2 语句,共循环__________次.
3．要限定文本框的输入的字符数,则可通过___________属性进行设置.
4．表达式："12" + "20"的结果为___________.
5．表示x是5的倍数或是9的倍数的逻辑表达式为 _______ .
6．要显示当前机器内的日期,函数为________.
7．要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置了______ 属性为True .
8．下面程序运行后输出的结果是__________.
x = Int(Rnd) + 3
If x ^ 2 > 8 Then y = x ^ 2 + 1
If x ^ 2 = 9 Then y = x ^ 2 - 2
If x ^ 2 < 8 Then y = x ^ 3
MsgBox(y)
上机题
上机题要求：每题都要提交完整的解决方案（先压缩项目所在文件夹,然后提交压缩文件.rar）,如：
假设实验一的
第1题的项目名称为sy1-1、解决方案名称为sy1-1,存放在D:\sy下；
则将文件夹sy1-1压缩成文件sy1.rar,然后提交.
1.所谓回文素数是指构成的字符左右对称的素数.例如：11、101、313等.下面的程序求10~1000以内的所有回文素数.
程序的思想是选取正整数N,若N是素数,调用子过程hws判断该素数是否为回文数(判断左右对称),若是,在文本框内显示所求结果,如图所示.
Private Sub Button1_Click(…) Handles Button1.Click
Dim flg As Boolean,i%,j%,m%
For i =
m= Int(Sqr(i))
For j = 2 To m ' 判断是否为素数
If i Mod j = 0 Then
Next j
If j>m Then
Call
If flg Then Text1 = Text1 & i & vbCrLf
End If
Next i
End Sub
Private Sub hws(n As Integer,bz As Boolean)
Dim j%,k%,m$
bz = True
m = CStr(n) ' 将数值转为字符
k = ' 求字符m的长度
For j = 1 To k \ 2 ' 判断回文数
If Mid Mid(m,k - j + 1,1) Then
bz = False
Exit For
End If
Next j
End Sub

第一题 没看明白
B
Multiline
6
Maxlength
1222
x Mod 5 = 0 Or x Mod 9 = 0
Format(Now, "yyyy - mm - dd")
Locked
7
上机题 我只能改到这里了 虽然运行还有问题 可是就是一句话 有问题 我再看看吧
Private Sub Button1_Click(ByRef n As System.object, ByRef bz As System.EventArgs)
Handles Button1.Click
Dim flg As Boolean, i%, j%, m%
For i = 10 To 1000
m = Int(Sqr(i))
For j = 2 To m ' 判断是否为素数
If i Mod j = 0 Then bz = False
Next j
If j > m Then
Call hws(i, True)
If flg Then Text1.Text = Text1.Text & i & vbCrLf
End If
Next i
End Sub
Private Sub hws(n As Integer, bz As Boolean)
Dim j%, k%, m$
bz = True
m = CStr(n) ' 将数值转为字符
k = Len(m) ' 求字符m的长度
For j = 1 To k \ 2 ' 判断回文数
If Mid(m, j, 1) Mid(m, k - j + 1, 1) Then
bz = False
Exit For
End If
Next j
End Sub
最后一题 上机的 程序是你自己写的 还是原题就是那样的 本人感觉 那段程序 有问题
不完程序后 运行 text 里输出地是 所有 10~1000的整数