省二级VB编程题目
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text)
s = 0
For i = 1 To n
s = s + i ^ 2
Next i
Text2.Text = s
End Sub
Private Sub Command1_Click()
''' 不得删除本行注释
Dim i As Integer
Open App.Path & "\" & "yssj.txt" For Input As #1
For i = 1 To 10
Input #1, a(i)
Next i
Close #1 End Sub
Private Sub Command2_Click()
''' 不得删除本行注释
Dim i As Integer
Text1.Text = ""
For i = 1 To 10
If a(i) Mod 3 = 2 Then
Text1.Text = Text1.Text & Str(a(i)) End If
Next i End Sub
Private Sub command1_Click()
'''不得删除本行注释
Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text)
a = 0
b = 0
For i = 1 To n
a = a + i
b = b + a
Next i
Text2.Text = b
End Sub
Private Sub Command1_Click()
'''不得删除本行注释
Dim i%, xh$, xm$
Open App.Path & "\" & "Xhxm.txt" For Output As #1
For i = 1 To 3
xh = InputBox("请输入学号")
xm = InputBox("请输入姓名")
Write #1, xh, xm
Next i
Close #1
End Sub Private Sub Command2_Click()
'''不得删除本行注释
Dim s as string
Open App.Path & "\" & "Xhxm.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #2
End Sub
Private Sub Command1_Click()
‘”读取文件”按钮代码
'''不得删除本行注释
Dim st As String
Text1.Text = ""
Open App.Path & "\" & “jmwb.txt" For Input As #1
While Not EOF(1)
Input #1, st
Text1.Text = Text1.Text + st + vbCrLf
Wend
Close #1
End Sub Private Sub Command2_Click()
Dim s As String, co As String, c As String, Dim n As Integer, i As Integer, p As Integer s = Trim(Text1.Text)
n = Len(s)
co = ""
For i = 1 To n
c = Mid(s, i, 1)
p = Asc(c) + 5
co = co + Chr(p)
Next i
Text2.Text = co
End Sub
Private Sub command1_click()
'''不得删除本行注释
For N = 1 To 15
x(N) = Int(Rnd * 91 + 10)
Text1.Text = Text1.Text + Str(x(N)) Next N
End Sub Private Sub Command2_Click()
'''不得删除本行注释
Dim m As Integer, K As Integer
For N = 1 To 15
For m = N + 1 To 15
If x(m) > x(N) Then
K = x(N)
x(N) = x(m)
x(m) = K
End If
Next m
Text2.Text = Text2.Text + Str(x(N)) Next N
End Sub
Private Sub Command1_Click()
Dim char As String * 1
char = Trim(Text1.Text)
If Not IsNumeric(char) Then
If (Asc(char) >= 65 And Asc(char) <= 90) Or _
(Asc(char) >= 97 And Asc(char) <= 120) Then
Label1.Caption = "输入的是字母"
Else: Label1.Caption = "输入的是其它符号"
End If
Else: Label1.Caption = "输入的是数字"
End If
End Sub
Private Sub Command1_Click()
Text1.Text = UCase(Text1.Tag)
End Sub
Private Sub Command2_Click()
Text1.Text = LCase(Text1.Tag)
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Tag
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
'对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存
Text1.Tag = Text1.Text '用Text1.Tag属性作为保存textbox控件文本内容的临时存储区End Sub