niusouti.com

设有如下过程: Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form. KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True,程序运行后,如果按“A”键,则输出结果为( )。A. A AB. A BC. A C

题目

设有如下过程: Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form. KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True,程序运行后,如果按“A”键,则输出结果为( )。

A. A A

B. A B

C. A C

D. A D


相似考题
更多“设有如下过程: Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(Ke ”相关问题
  • 第1题:

    设有如下定义:typedefint*INTEGER;INTEGERp,*q;则()是正确的叙述。

    A.p是int型变量

    B.q是基类型为int的指针变量

    C.p是基类型为int的指针变量

    D.程序中可用INTEGER代替int类型名


    参考答案:C

  • 第2题:

    5、设有下面两个赋值语句: a = Integer.parseInt("1024"); b = Integer.valueOf("1024").intValue(); 不考虑赋值中的自动包装转换,你认为a,b最适合的数据类型是?

    A.a是int类型变量,b是Integer类对象。

    B.a是Integer类对象,b是int类型变量。

    C.a和b都是Integer类对象并且它们的值相等。

    D.a和b都是int类型变量并且它们的值相等。


    D

  • 第3题:

    11、下面哪些定义是类型正确的?

    A.f :: (Integer, Integer) -> Float f (x,y) = x / y

    B.f :: (Integer, Integer) -> Float f (x,y) = (fromInteger x) / (fromInteger y)

    C.f :: (Integer, Integer) -> Float f (x,y) = 3*x + y

    D.f :: (Integer, Integer) -> Integer f (x, y) = 3*x + y


    AFT 通常由含有一个双氢呋喃环和一个氧杂萘邻酮(香豆素)的基本架构单位构成 AFT 分为 黄曲霉毒素B1(AFB1)、黄曲霉毒素 B2 (AFB2) 黄曲霉毒素G1(AFG1)、黄曲霉毒素 G2(AFG2) 黄曲霉毒素M1(AFM1)、黄曲霉毒素 M2(AFM2) B1、G1的呋喃环氢键异构。M1型氢键变为羟基。 1比2呋喃环上多了一个双键。

  • 第4题:

    设有如下语句: Dim a,b As Integer c="VisualBasic" d=#7/20/2005# 以下关于这段代码的叙述中,错误的是( )。

    A.a被定义为Integer类型变量

    B.b被定义为Integer类型变量

    C.c中的数据是字符串

    D.d中的数据是日期类型


    正确答案:A

  • 第5题:

    8、下面哪些是将分数化为浮点数的正确定义?

    A.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = a/b###SXB###B.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromInteger a)/ (fromInteger b)###SXB###C.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = fromInteger (a/b)###SXB###D.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromIntegral a)/ (fromIntegral b)###SXB###E.ty
    A