先要判断你输入字母的大小写,再用函数Ucase和Lcase将字母转换成大写或者小写 大写A的A码为65,小写a的A码为97 现在介绍一下上面两个函数的使用方法Lcase(＂AB＂)=＂ab＂ Ucase(＂ab＂)=＂AB＂ 主要是判断大小写,再进行转换

Option ExplicitPrivate Sub Command1_Click()Dim a() As IntegerDim i, j, nReDim a(9, 9)For i = 1 To 8Print Tab(25 - i * 2);For j = 1 To ia(i, 1) = 1a(i, i) = 1a(i + 1, j + 1) = a(i, j) + a(i, j + 1)Print a(i, j);Next jPrintNext iEnd Sub

Private Sub Command1_Clikc() Dim s As String s=trim(text1,text) n=Getword(s) text2.text=n End Sub Function Getword(s As STring) AS Integer List1.clear Do While______.

第一题Private Sub Command1_Click()Picture1.Picture = LoadPicture(＂d:\My Pictures\1.jpg＂)Command1.Visible = FalseCommand2.Visible = FalseEnd SubPrivate Sub .

inputbox的返回值为string,即字符串类型

Private Sub Command1_Click() For i = 1 To 10 For j = 1 To 10 If i * j >= 10 And i * j 追问: 我要的是那本书的练习题的答案,下午要考试,从书里出题, 追答: 没有哎我没有那本书;如果考试不严格的话 倒 是可以帮你. 评论0 0 0

Private Sub Command1_Click()FontSize = 15FontName = ＂黑体＂ForeColor = vbRedPrint Text1.Text & ＂同学,你好!祝你学好vb程序设计＂Command3.Visible = .

Dim a(5) As Integer, st As String = ＂＂ For i = 10000 To 99999 a(1) = i Mod 10 a(2) = (i Mod 100) \ 10 a(3) = (i Mod 1000) \ 100 a(4) = (i Mod 10000) \ 1000 a(5) = i \ 10000 If a(1) ^zhidao 5 + a(2) ^ 5 + a(3) ^ 5 + a(4) ^ 5 + a(5) ^ 5 = i Then st = st & i & ＂ ＂ End If Next TextBox6.Text = st

<p _extended=＂true＂>课后学习网, <a href=＂wenwen.soso/z/urlalertpage.e?sp=swww.khxxw＂ target=＂_blank＂>www.khxxw</a> 有这份答案,你可以去看看!如果找到了,记得把分给我啊!那里有超多大学各专业课课后答案及考试试卷免费下载!如果没有你可以去发个求助,让大家帮你找,那里聚集的全部是在校大学生!希望对你有用!</p>

Private Sub Command1_Click() Dim mark!mark = Val(Text1) If mark >= 90 Then grade = ＂优＂ ElseIf mark >= 80 Then grade = ＂中＂ ElseIf mark >= 60 Then grade = ＂及格＂ Else grade = ＂不及格＂ End If Text2 = grade End Sub