Question

编写一个应用程序，界面如图所示。窗体中文字“VB应用程序！”为一标签控件，单击标题为“放大”的命令按

编写一个应用程序，界面如图所示。窗体中文字“VB应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB应用程序！”向该按钮所指向的方向移动50Twip。

Answer 1

Option Explicit

Private Sub Command1_Click()
Label1.Font.Size = Label1.Font.Size + 1
End Sub

Private Sub Command2_Click()
Label1.Font.Size = Label1.Font.Size - 1
End Sub

Private Sub Command3_Click()
Label1.Top = Label1.Top - 50
End Sub

Private Sub Command4_Click()
Label1.Left = Label1.Left + 50
End Sub

Private Sub Command5_Click()
Label1.Top = Label1.Top + 50
End Sub

Private Sub Command6_Click()
Label1.Left = Label1.Left - 50

End Sub

Answer 2

MySQL server error report:Array 问题，ECSHOP网站出现以下错误，请告诉帮忙看下怎么解决，拜谢各位大侠
悬赏分：50 | 离问题结束还有 14 天 14 小时 | 提问者：fishcouldfly MySQL server error report:Array ( [0] => Array ( [message] => MySQL Query Error ) [1] => Array ( [sql] => INSERT INTO `sqldbtun`.`dbtun_stats` ( ip_address, visit_times, browser, system, language, area, referer_domain, referer_path, access_url, access_time) VALUES ('116.238.123.26', '1', 'Safari 534.10', 'Windows XP', 'en-US,en', '上海市', '', '', '/index.php', '1301506986') ) [2] => Array ( [error] => Can't find file: 'dbtun_stats.MYI' (errno: 2) ) [3] => Array ( [errno] => 1017 ) )