数据库技术及应用 答案 实验一.pdf

sy1-1 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox1.SelectedText TextBox2.Font = TextBox1.Font End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Font = New Font ("隶书", 25) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Font = New Font ("幼圆", 15) End Sub End Class Sy1-2 Public Class Form1 Dim x As Single, y As Single, z% Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Focus() End Sub Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus x = Val(TextBox1.Text) If Int(x) - x <> 0 Then MsgBox("不是一个整数") TextBox1.Text = "" End If End Sub Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus y = Val(TextBox2.Text) If Int(y) - y <> 0 Then MsgBox("不是一个整数") TextBox2.Text = "" End If If y Mod 2 = 1 Then MsgBox("不是一个偶数") TextBox2.Text = "" End If End Sub Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress If y - 2 * x < 0 Then MsgBox("不存在") End If z = y - 2 * x z = z / 2 TextBox3.Text = Str(z) + " " + Str(x - z) End Sub End Class Sy1-3 Imports System.Math Public Class Form1 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End E