1，郭斌立体字入何写

郭 一点、二横、 三竖、四横折、五横、六横撇弯钩、八横、九横撇弯钩、十竖斌 一点、二横、三撇、四捺、五横、六横、七竖、八横、九竖、十横、十一斜钩、十二点共10+12=22杨 一横、二竖、三撇、四点、五横撇、六横折钩、七撇、八撇骁 一横折、二竖折折钩、三横、四横、五斜钩、六撇、七横、八撇、九竖弯钩筠 一撇、二横、三点、四撇、五横、六点、七横、 八竖、九提、十撇、十一横折钩、十二点、十三提共8+9+13=30
相信自己的判断吧

郭斌立体字入何写

2，vb小程序

Private Sub Command1_Click() Form1.Cls CurrentX = 800 CurrentY = 1000 FontSize = 20 ForeColor = QBColor(8) Print "阴影字" CurrentX = 830 CurrentY = 1030 FontSize = 20 ForeColor = QBColor(12) Print "阴影字"End SubPrivate Sub Command2_Click() Form1.Cls CurrentX = 800 CurrentY = 1000 FontSize = 20 ForeColor = QBColor(10) Print "立体字" CurrentX = 800 CurrentY = 1025 FontSize = 20 ForeColor = QBColor(5) Print "立体字"End SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Activate() ForeColor = QBColor(12) CurrentX = 800 CurrentY = 1000 FontSize = 20 Print "阴影字"End Sub
加入一个button ，然后加入代码Private Sub Command1_Onclickmsgbox "hello,world"End Sub
高级计算器，建立工程、窗体、文本框1、按钮1，代码：private sub command1_click() text1.text = mycalc(text1.text)end subprivate function mycalc(byval expression as string) as string dim calc as object set calc = createobject("msscriptcontrol.scriptcontrol") calc.language = "vbscript" on error goto calcerr mycalc = calc.eval(expression) exit functioncalcerr: mycalc = err.descriptionend function点击按钮计算表达式的值，测试：45+2*(3+1)

vb小程序


文章TAG：10立体字怎么写  郭斌立体字入何写  
下一篇