求高手 几道简单的VB编程题
哈 哈 你那不好 表白不好
我写个给你表白吧~
------------------------------------------------------------------
文件名的 后面一定要是 .VBE 我想你应该知道！ 我爱你.VBE
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""请说“我爱你”·不说的话电脑都会伤心的关机··"" ",0 ,true
dim a
do while(a "我爱你")
a = inputbox ("请说“我爱你”,就不关机，快嘛，说 ""我爱你"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛 亲爱的"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，我爱死你乐！~"
-----------------------------------------------------------------
复制到笔记本 文件保存为.VBE
分 分 分
我不知道我回答的是否正确 我没仔细看
我要上学去了88888
如果有错误 在联系我~
我只会用多个判断来判断Option的value值，然后计算就可以了
第一题：Private Sub Command1_Click()
Dim I As Long
For I = 100 To 1000
'输出100~1000之间的，如果不是这个区间，请自己更改
If I = SumNumber(I) Then
Print I
End If
Next
End Sub
Function SumNumber(N As Long) As Long
Dim S As String
S = CStr(N)
For I = 1 To Len(S)
SumNumber = SumNumber + Val(Mid(S, I, 1)) ^ 3
Next
End Function
第二题：
题目不清楚，不知道你要打印出什么样的东西
第三题：
Private Sub Command1_Click()
Dim A(1 To 3, 1 To 4) As Integer
Randomize
Cls
Print "原矩阵为："
For I = 1 To 3
For j = 1 To 4
A(I, j) = Int(Rnd * 101)
Print Tab(j * 5 - 4); A(I, j);
Next
Next
Print Tab(1); "转置后的矩阵为："
For j = 1 To 4
For I = 1 To 3
Print Tab(I * 5 - 4); A(I, j);
Next
Next
End Sub
1.水仙花数，好久没听到这个名字了，是不是百位，十位，个数的立方和等于他本身的那个？
for(int i=100;i<1000;i++){
int a=i%10;//个位
int b=i/10%10;//百位
int c=i/100;//千位
if(i==a*a*a+b*b*b+c*c*c){
txt_show.text=txt_show.text + vbcrlf + i;//显示水仙花数
}
2.打印正三角形。。。。。天晓得你说的是哪种规格。。。就按我想的给你一个吧。。
for(int i=0;i<num;i++){
for(int j=0;j<num-i;j++){
printf(" ");
}
for(int j=i;j>0;j--){
printf("* ");
}
printf(vbcrlf);
}
3.转置矩阵。。我实在是忘了是啥了，算了。。
int[3][4] array;
for(int i=0;i<3;i++)
for(int j=0;j<4;j++)
array[i][j]=Random(100);//忘了是不是这个了，随机函数
第一题：
Private Sub Command1_Click()
Dim I As Long
For I = 100 To 1000
'输出100~1000之间的，如果不是这个区间，请自己更改
If I = SumNumber(I) Then
Print I
End If
Next
End Sub
Function SumNumber(N As Long) As Long
Dim S As String
S = CStr(N)
For I = 1 To Len(S)
SumNumber = SumNumber + Val(Mid(S, I, 1)) ^ 3
Next
End Function
