VB程序设计教程答案

把窗体的KeyPreview属性设置为True,然后编写如下过程:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)     Print Chr(KeyCode) End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As In...

阅读全文

在窗体上画一个文本框，然后编写如下事件过程:

Private Sub Text1_KeyPress(KeyAscii As Integer)     Dim char As String     char = Chr(KeyAscii)     KeyAscii = Asc(UCase(char)) &nbs...

阅读全文

在窗体上阃一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True,然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click()     Text1.Text = UCase(SaveAll) End Sub

Private S...

阅读全文

编写如下两个事件过程:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)     Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KcyAscii As Integer)     Print Chr(KcyAscii) End Sub

阅读全文

某商场有一个价目表，该表有两项内容，即商品名和商品价格。原来的表中有4种商品的价格，即： 电冰箱 2340 电视机 5300 洗衣机 3320 自行车 890

编写程序，把上面的价目表存入一个数组，然后把新的商品名及其价格插入数组中。

阅读全文

用随机数函数Rnd生成一个8行8列的数组（各元素值在100以内），然后找出某个指定行内值最大的元素所在的列号。要求，查找指定行内值最大的元素所在列号的操作通过一个过程来实现。 解：求某一指定行中值最大的元素所在列号的过程如下： Function Max...

阅读全文